Question

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

Answer 1

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

 

 

Program Help;
Uses Crt;
Var h, m : Byte;
s : LongInt;
Begin
ClrScr;
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.