ТутРешу.Ру

РЕШИТЕ ПОЖАЛУСТА В ПАСКАЛЕ 1) Идет k ая секунда суток

Задание:

РЕШИТЕ ПОЖАЛУСТА В ПАСКАЛЕ 1) Идет k ая секунда суток. Определить, который сейчас час (в часах минутах секундах) 2) С начала месяца прошло m минут. Определить какое сейчас число и который сейчасчас час (в часах и минутах)

Решение:

Чувак, лови первую: Program Help; Uses Crt; Var h, m: Byte; s: LongInt; BeginClrScr; Write ('Количество секунд: '); Readln (s); If s >=86400 then Writeln ('Количество секунд должно быть меньше, чем 86400! ') Else Begin h: =s div 3600; s: =s — h*3600; m: =s div 60; s: =s — m*60; Writeln (h, 'ч ', m, 'мин ', s, 'сек'); End; Readln; End.




Знаете другой ответ?

Отправить свой ответ