Номер 11, страница 171 - гдз по информатике 8 класс учебник Босова, Босова

Вопросы и задания. Параграф 4.3. Программирование линейных алгоритмов. Глава 4. Начала программирования на языке Паскаль - номер 11, страница 171.

Условие.

11. Идёт k-я секунда суток. Разработайте и отладьте программу, которая по введённой k-й секунде суток определяет, сколько целых часов h и целых минут m прошло с начала суток.

Например, если k = 13 257 = 3 • 3600 + 40 • 60 + 57, то h = 3 и m = 40. Выведите на экран фразу: It is ... hours ... minutes

Вместо многоточий программа должна выводить значения h и m отделяя их от слов ровно одним пробелом. Для проверки правильности программы используйте тест:

Входные данные	Выходные данные
13257	It is 3 hours 40 minutes

Решение.

var
k, m, h, c: integer;
begin
writeln ('Введите количество секунд');
readln (k);
h:= k div 3600;
c:= k- h*3600;
m:= c div 60;
writeln ('It is ', h, ' hours ', m, ' minutes');
end.