Const n=21;
var q:array[1..n] of integer;
i,s,k:integer;
begin
Randomize;
for i:=1 to n do
begin
q[i]:=random(51)-10;
write(q[i]:4);
end;
writeln;
k:=0; s:=0;
for i:=1 to n do
if q[i]<0 then begin s:=s+q[i]; k:=k+1; end;
writeln('Среднее арифметическое отрицательных элементов = ',s/k);
end.
Пример:
16 -1 -7 5 13 11 -2 -10 36 19 3 34 23 29 12 28 9 39 33 16 -6
Среднее арифметическое отрицательных элементов = -5.2
Var a,n,p,i:integer;
begin
write('Введите а и n: ');
readln(a,n);
p:=a;
for i:=1 to n-1 do
p:=p*(a+i);
writeln('Ответ: ',p);
<span>end.
var a,n,p,i:integer;
begin
write('Введите а и n: ');
readln(a,n);
p:=a;
while i<n-1 do
begin
i:=i+1;
p:=p*(a+i);
end;
writeln('Ответ: ',p);
<span>end.</span></span>
<span>74 : 2 =
37 (остаток 0)</span>
37 : 2 = 18
(остаток 1)
18 : 2 = 9 (остаток
0)
9 : 2 = 4 (остаток
1)
4 : 2 = 2 (остаток
0)
2 : 2 = 1 (остаток
0)
1 : 2 = 0 (остаток
1)
В ответе
записываем остатки с конца подсчетов
Ответ :
1001010
<span>
74(10)
= 1001010(2) </span>
23 : 2 = 11
(остаток 1)
11 : 2 = 5 (остаток
1)
5 : 2 = 2 (остаток
1)
2 : 2 = 1 (остаток
0)
1 : 2 = 0 (остаток
1)
Ответ : 10111
<span>23(10) =
10111(2)</span>
17 : 2 = 8 (остатк
1)
8 : 2 = 4 (остаток
0)
4 : 2 = 2 (остаток
0)
2 : 2 = 1 (остаток
0)
1 : 2 = 0 (остаток
1)
Ответ: 10001
<span>17(10) =
10001(2)</span>
2 : 2 = 1 (остаток
0)
1 : 2 = 0
(остаток 1)
Ответ: 10
<span>2<span>(10) </span>= 10(2) </span>
Тут все предельно ясно. Какой формат мамки, такой должен быть и формат корпуса.
Не открывать подозрительные ссылки/сайты/файлы, возможно они заражены вирусами, но современные браузера оперативно отказывают в доступе сайта