Создать программу которую с клавиатуры вводится количество секунд, прошедших с начало суток, определить кол-во полных часов и мин. Прошедших сначало суток

Question

Информатика

Федюка

1 сентября, 19:01

Создать программу которую с клавиатуры вводится количество секунд, прошедших с начало суток, определить кол-во полных часов и мин. Прошедших сначало суток

+2

Ответы (2)

Знаете ответ?

Стратбник · Answer 1

В часе 60 минут и 60*60=3600 секунд. Следовательно нужно проверять сколько раз входит в число секунд ваши интервалы:

var sec:integer;

begin

readln (sec) ;

writeln ('proshlo ', sec div 3600, ' polnyh chasov ili ', sec div 60, ' polyh minut') ;

end.

Тигрий · Answer 2

Var s, m, h:integer;

begin

readln (s) ;

h:=s div 3600;

m: = (s-h*3600) div 60;

if m=60 then

begin;

inc (h) ;

m:=0;

end;

writeln (h,':', m) ;

end.