for i: =1 to n do (n-колличество членов, вводится с клавиатуры)
begin
k: =k*i;
f: =k;
sumf: =sumf+1/f;
end;
(while)
function sumw(i: integer): real;
begin
k: =1;
i: =1;
sumw: =1;
while i< =n do
begin
k: =k*i;
f: =k;
sumw: =sumw+1/f;
end;
(repeat)
function sumr(i: integer): real;
begin
k: =1;
i: =1;
sumr: =1;
repeat
k: =k*i;
f: =k;
sumr: =sumr+1/f;
i: =i+1
until i< n;
Ответ дал: Гость
4: 2
2|0
1|0
0|1
4₁₀=100₂
10: 2
5|0
2|1
1|0
0|1
10₁₀=1010₂
1996: 2
998|0
499|0
249|1
124|1
62|0
31|0
15|1
7|1
3|1
1|1
0|1
1996₁₀=11111001100
100.1010.11111001100
Ответ дал: Гость
2^i = n
2^i = 64
i = 6 бит.
ответ. 6 бит
Ответ дал: Гость
program n1; const n=10; var mas: array[1..n] of integer; i: integer; max,min,sum: integer; ar: real; begin for i: =1 to n dobegin mas[i]: = random (20)-10; write(mas[i],' '); writeln end; max: =1; for i: =2 to n do if mas[i]> mas[max] then max: =i; writeln; writeln('максимаьное значение a[',max,']= ',mas[max]); min: =1; for i: =2 to n do if mas[i]< mas[min] then min: =i; writeln; writeln(минимальное значение a[',min,']= ',mas[min]); for i: =1 to n do sum: =sum+mas[i]; ar: =sum/n; writeln; writeln('среднее арифметическое = ',ar); end.{немного нерационально но работает=)}
Популярные вопросы