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

Question

Информатика

Стоян

14 октября, 23:37

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

+1

Ответы (1)

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

Элла · 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.