Question

Информационный объём дискеты равен 1, 44 Мбайта. Рассчитайте и выведите на экран сколько книг может поместиться на дискету, если для хранения кода одного символа нужен 1 байт. Количество страниц в книге, число строк на странице и количество символов в строке запрашивайте у пользователя. помогите решить через паскаль

Answer 1

Program e;
var d : real; x,y,z : integer; all : integer;result: real;beginWriteln('ко-лво страниц');Readln(x);Writeln('ко-лво строк');Readln(y);Writeln('ко-лво символов');ReadLn(z);
d:= 1.44 * 1024;
all := x*y*z;
result := d/all;writeln('Поместится книг:',trunc(result));  end.