Question

дано число часов H. Напишите программу, которая находит и выводит на экран количество полных дней и оставшихся часов.
паскаль........
срочно решение

Answer 1

var

 H: Integer;

begin

 Write ('Введите количество часов: ');

 ReadLn (H);

 WriteLn ('Полных дней = ', H div 24);

 WriteLn ('Оставшиеся часы = ', H mod 24);

end.