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

Question

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

Answer 1

62

r2d2m

21 августа 2022

Чувак, лови первую: 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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: