Var A:real;
Begin
Write('Введите число: ');ReadLn(A);
if A>=0 then A:=sqrtA
else write(a) ;
Write(A);
End.
1) 80*1024*8=655360 бит
<span>2)655360\1536=427 сек.</span>
<span>3)427*768=327680 бит=40960байт=40Кбайт</span>
<span>Ответ: 40 Кбайт
</span>
Думаю,что так...
N = 2^i
32=2^i
i=5 бит
<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3>
begin
ReadInteger('n->').ToString.JoinIntoString(' ').ToIntegers
.Where(t -> t mod 4 = 0).Sum.Println;
end.
Var
a, b, c, d: byte;
begin
for a := 1 to 5 do
begin
for b := 1 to 5 do
begin
c := (c = 10 ? 1 : c + 1);
write((a mod 10 = 1 ? c : 16 - c):3);
end;
writeln();
end;
end.