Идёт k-я секунда суток. Определить, сколько полных часов (H) и полных минут (M) прошло к этому моменту.
Идёт 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.
Гостьvar k:integer;
begin
readln(k);
writeln('H=',k div 3600);
while k>=3600 do k:=k-3600;
writeln('M=',k div 60);
end.
Не нашли ответ?
Похожие вопросы