Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Идёт k-я секунда суток. Определить, сколько полных часов (H) и полных минут (M) прошло к этому моменту.

Ответ оставил Гость

Program Pr1;
uses crt;
var k:integer;
Begin
clrscr;
readln(k);
writeln(minut proshlo ,k div 60);
writeln(chasov proschlo ,Trunc(k/60) div 60);
end.