LET X = 0.2BEGINFOR Z = 1 TO Z = 3Z = Z+1y=1,5*a*xcos(x)X=X+0.2
END
var
n,s:integer;
begin
repeat
write ('N = ');readln(n);
until (n>=10000) and (n<=32767);
s:=n div 10000 + (n div 1000) mod 10 + n mod 10;
writeln ('Summa: ',s);
readln;
end.
256 символов можно закодировать 8 битами (2^8=256) = 1 байт
100 страниц * 30 строк * 60 символов * 1 байт = 180000 байт
216000 байт/мин = 216000/60 байс/сек = 3600 байт/сек
180000 байт / 3600 байт/сек = 50 секунд
Нужно дрова поставить(драйвера)в настройках подивись чи є,якщо нема то встанови