Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.