Question

Pascal ABC. Введено количество секунд. Вывести количество часов, минут и секунд.
Например введено 122 секунды, вывести 0 часов, 2 минуты, 2 секунды. Помогите пожалуйста.

Answer 1

var a:integer;

b:real;

begin  

writeln('Введите секунды'); readln(a);

writeln('Секунды = ' ,a);

b := a / 60; // перевод в минуты

if a >= 60 then  // если больше 60 секунд выводим минуты  

writeln('Минуты = ', b)

else  

writeln('Минуты = 0');

 

if b >= 60 then // если больше 60 минут выводим часы

 writeln('Часы = ', b / 60)

 else  

writeln('Часы = 0');

end.