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

Question

Информатика

Нона

Вчера, 17:59

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

+5

Ответы (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.