1045'2128 пикселей это 2.223.760 битов
2.223.760/8=277970 байтов
288970/1024=271 килобайт
Var s:real;
begin
write('s='); readln(s);
if s>1000 then s:=s-0.01*s;
writeln('S=',s);
end.
Пример:
s=1200
S=1020
Блок-схема - в прилагаемом файле
10 символов
32 = 2^5 => 5 бит/символ
10 * 5 = 50 бит