Идет i-ая секунда суток. Напишите программу, которая по введенной i-ой секунде суток определит, сколько целых часов h, целых минут min и секунд с прошло с начала суток. Например: 13257 секунд = 3 часа 40 минут и 57 секунд. Выведите на экран фразу: "С начала суток прошло: ... часов, ... минут и ... секунд". Вместо многоточий вывести значения переменных.

Question

Информатика

Сильвия

23 сентября, 15:09

Идет i-ая секунда суток. Напишите программу, которая по введенной i-ой секунде суток определит, сколько целых часов h, целых минут min и секунд с прошло с начала суток. Например: 13257 секунд = 3 часа 40 минут и 57 секунд. Выведите на экран фразу: "С начала суток прошло: ... часов, ... минут и ... секунд". Вместо многоточий вывести значения переменных.

+3

Ответы (1)

Знаете ответ на вопрос?

Аленя · Answer 1

Var

i, h, m, s: integer;

begin

Write ('Введите количество секунд от начала суток: ') ;

Readln (i) ;

h : = i div 3600;

m : = i mod 3600;

s : = m mod 60;

m : = m div 60;

Writeln ('С начала суток прошло ', h, ' часов, ', m, ' минут ', s, ' cекунд')

end.

Тестовое решение:

Введите количество секунд от начала суток: 13257

С начала суток прошло 3 часов, 40 минут 57 cекунд