Меню сайта

Задача №19

Идет k-ая секунда суток. Определить, сколько полных часов и полных минут прошло к этому моменту от начала суток.


Program begin_19-

var k:integer-

begin

writeln(‘введите число секунд’)-

readln(k)-

writeln(k div 3600,’ полных часов, ‘, k div 60,’ полных минут)-

readln-

end.

Категория: Линейные программы | Дата: 01.12.12

Меню раздела
Блок