64Кбайт = 524288 бит
Скорость 1024 бит/c
t = 524288 / 1024 = 512 сек
Исполняемый, хотя сейчас вместо com используется exe
Program n1;
var k,a: integer;
begin
readln(a);
k:=0;
while a<>0 do
begin
if (a mod 10=2) and (a mod 3=0)
then k:=k+1;
readln(a);
end;
write(k);
end.
128 = 2^7 значит 7 бит на символ
Общий обьем данных 7*180*2048 = 2 580 480 бит = 322 560 байт = 315 кб
В строчках, в которых Вы вычисляете y1 есть явная ошибка - скобок не хватает, а некоторые скобки можно, наоборот, убрать:
Вместо y1:=((1/3)*(2*y0+x/y0*y0))
надо написать y1:=(2*y0+x/(y0*y0))/3