Создать программу которую с клавиатуры вводится количество секунд, прошедших с начало суток, определить кол-во полных часов и мин. Прошедших сначало суток
Создать программу которую с клавиатуры вводится количество секунд, прошедших с начало суток, определить кол-во полных часов и мин. Прошедших сначало суток
Гость
Ответ(ы) на вопрос:
Гость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.
Гостьв часе 60 минут и 60*60=3600 секунд. Следовательно нужно проверять сколько раз входит в число секунд ваши интервалы:
var sec:integer;
begin
readln(sec);
writeln('proshlo ', sec div 3600, ' polnyh chasov ili ', sec div 60, ' polyh minut');
end.
Не нашли ответ?
Похожие вопросы