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