var a: array[1..10] of integer;
i,p: integer;
begin
randomize;
p:=1;
for i:=1 to 10 do begin
a[i]:=random(11)-5;
write(a[i],' ');
if a[i]<>0 then p:=p*a[i];
end;
writeln;
write('p=',p);
end.
1-4=-3; (2);
(-3)^2=9; (1);
9-4=5; (2);
5^2=25; (1);
25-4=21; (2);
Ответ: 21212
40 * 60 1500 = 3600000 всего символов в книге
В стандартной кодировке 1 символ - 1 байт, значит
3600000 * 1 байт = 3600000 байт / 1024 = 3515,625 Кбайт / 1024 = 3,4 Мбайт
Var
amoebas, t: integer;
begin
amoebas := 1;
t := 0;
repeat
t := t + 3;
amoebas := amoebas * 2;
Writeln(amoebas, ' амеб через ', t, ' часа');
until t >= 24;
end.
Собака - <span>лучший друг человека.</span>
<span>В этом году блыла холодная зима.</span>
<span>Зачем ты это сделал?</span>
<span>Дети слушали сказку кот в сапогах.</span>
<em><span> * * *</span></em>
<span>Кто много читает, тот много и знает.</span>
