Var i,sum:integer; a:array[1..10] of integer;
begin;
for i:=1 to 10 do readln(a[i]); next i;
sum:=0;
for i:=1 to 10 do sum:=sum+a[i]; next i;
writeln('Сумма элементов = ',sum);
end.
1) 32*128*8=32786 символов на 8 страницах
N=2^i ; 16 = 2^4 ; i = 4 бита
<span>32768*4=131072 бита
теперь переводим в кбайт
</span>131072/8 = 16384 байт/1024 = 16кБ.
Номер 3
program ggg;uses GraphABC;var r: integer;beginwriteln('введи число');readln(r);writeln(r div 60:0:2,'минут',r-60,'секунд');end.
Вот решение. Красным цветом заполнил.