Поделитесь своими знаниями, ответьте на вопрос:
Решите в паскале 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.