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

Есть ответ
17.12.2022
430

Ответ


Чувак, лови первую:

 

 

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. 

 

 

 

 

 


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
17.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.