Печатное устройство (принтер) печатает 80 символов в секунду. Сколько нужно часов, чтобы напечатать целиком книгу из 365 страниц, если объем страницы 2,5 КБайт?

Var v, n, p: integer;

begin

n : = 365;

v : = 80;

p : = Trunc (2.5 * 1024) ;

writeln ('Скорость ', v, ' символов в секунду') ;

writeln ('Всего ', n, ' страниц') ;

writeln ('Объем ', p, ' символов на странице') ;

n : = n * p;

writeln ('Всего ', n, ' символов') ;

n : = n div v;

writeln ('Будет печатать ', n, ' секунд') ;

writeln ('Или ', n div (60*60), ' ч. ', (n mod (60*60)) div 60, ' мин. ', n mod 60, ' сек.') ;

end.