С клавиатуры вводятся число секунд, необходимо найти и вывести ** экран количество минут...

Question

С клавиатуры вводятся число секунд, необходимо найти и вывести на экран количество минут и секунд, которые подучатся в ходе вычислений

Answer 1

Var s,m,h:integer;
begin
write('Число секунд: ');
readln(s);
h:=s div 3600;
s:=s-h*3600;
m:=s div 60;
s:=s-m*60;
writeln(h,':',m,':',s)
end.