Верно ты думаешь можно переписать
256 символов можно закодировать 8 битами (2^8=256) = 1 байт
100 страниц * 30 строк * 60 символов * 1 байт = 180000 байт
216000 байт/мин = 216000/60 байс/сек = 3600 байт/сек
180000 байт / 3600 байт/сек = 50 секунд
Корня , побега , середины
Достоинства: точная передача цветовых переходов(2)
недостатки: масштабирование(3) Большой размер файла(1)
Var s:string; k,i: integer;
begin
writeln('Введите строку ');
readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]='.' then k:=k+1;
writeln('Количество точек в строке = ',k);
<span>end.</span>