Integer20. С начала суток прошло $$N$$ секунд ($$N$$ — целое). Найти количество полных часов, прошедших с начала суток.
Решение:
|
1 2 3 4 5 6 7 8 9 |
program Integer20; var Ts, Tm: Integer; begin Write('Введите кол-во секунд: '); Readln(Ts); Tm:=Ts div (60*60); Writeln('Кол-во полных часов: ',Tm); end. |
Другие задачи из раздела Integer можно посмотреть здесь.
Комментарии: