Находим количество символов: 1024×64×64=4194304 символов — байт (т.к. 1 символ=1 байт
В 1 Мбайте — 1048576 байт
Следовательно: 4194304/1048576=4 Мбайта
Var A, gradus, minut, N: real;
Begin
Writeln('Введите A градусов');
readln(A);
Writeln('До какой температуры остужать:');
readln(N);
gradus:=100-A;minut:=1;
While (gradus>N) do
Begin
A:=A*(1-0.15);
gradus:=gradus-A;
minut:=minut+1;
end;
Writeln('Кипяток остынет до ',N,' градусов через ', minut, ' минут');
readln();
<span>end.</span>
Один берег перевозит другой бере
волк капуста коза
капуста волк обратно козу
коза капуста волк
капуста волк коза