Ответ:
Удаление всей информации с диска
===== PascalABC.NET =====
begin
var B := ArrRandom(20, -99, 99);
B.Println;
Println('min =', B.Min)
end.
1024 это 2 в 10 степени. Вычисляем сколько символов в тексте - 714000. 714000*10=7140000 бит
Var
i,sum:integer;
begin
sum:=0;
for i:=1 to 100 do
if (i mod 2<>0) then
sum:=sum+i;
write(sum);<span>
end.</span>