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

Question

Информатика

Лилюня

27 декабря, 04:09

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

+4

Ответы (2)

Знаете ответ на вопрос?

Вава · Answer 1

var k:integer;

begin

readln (k) ;

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

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

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

end.

Ида · Answer 2

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.