var
H: Integer;
begin
Write ('Введите количество часов: ');
ReadLn (H);
WriteLn ('Полных дней = ', H div 24);
WriteLn ('Оставшиеся часы = ', H mod 24);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
var
H: Integer;
begin
Write ('Введите количество часов: ');
ReadLn (H);
WriteLn ('Полных дней = ', H div 24);
WriteLn ('Оставшиеся часы = ', H mod 24);
end.