Горный Paint с осоом на иконке
Var x,a:real;
Begin
WriteLn('ln|x^3/a|');
Write('x = ');ReadLn(x);
Write('a = ');ReadLn(a);
WriteLn(Ln(Abs(x*x*x/a)));
End.
Переводим 3,5 КБ в биты,учитывая,что один знак=8битам
3,5 КБ=286720бит
Теперь делим данное число на кол-во знаков по битам
Получаем 286720/8=35 840 Байт(знаков)
Следует учитывать,что это решение верно,для кодировки КОИ-8
ОТВЕТ:35 840 знаков
Program funt;Var m, f:real;beginwriteln('Введите количество фунтов');readln(f);m:=f*453;writeln('Ответ:',m);end.