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

Question

Информатика

Фросюшка

18 октября, 15:02

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

+3

Ответы (2)

Знаете ответ?

Паша · Answer 1

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.

Полюся · Answer 2

var k:integer;

begin

readln (k) ;

writeln ('H=', k div 3600) ;

while k>=3600 do k:=k-3600;

writeln ('M=', k div 60) ;

end.