Var
a,b,c:integer;
begin
read(a,b,c);
if a<b then a:=b;
if a>=c then writeln(a) else writeln(c);
end.
Тут всё просто. Умножай и получишь ответ.
1) 30*16=480 бита - это одна строка
2) 480*40= 19200 бита это одна страница
3) Переводишь биты в мегабайты 19200 бит это 0,0023 мбайт
4) Делишь 700 на 0,0023
5) Примерный ответ - 304347,8 страниц полного текста влезет на диск 700 мб
Надеюсь, я вам помог
Просто,скачай другую программу.Или же зайди,в настройки и нажми на яркость.
Ответ получается 2170 на компиляторе pascal.ABC