var k: integer; beginreadln(k); writeln('h=',k div 3600); while k> =3600 do k: =k-3600; writeln('m=',k div 60); end.
Поделитесь своими знаниями, ответьте на вопрос:
Идёт k-я секунда суток. определить, сколько полных часов (h) и полных минут (m) прошло к этому моменту.
program pr1; uses crt; var k: integer; beginclrscr; readln(k); writeln('minut proshlo ',k div 60); writeln('chasov proschlo ',trunc(k/60) div 60); end.