Гаврилович 26 ноября 2019 в 06:25
Напишите программу к решению задачи : "С момента начала суток прошло К секунд. Сколько часов, минут и секунд показывают куранты?"
Напишите программу к решению задачи : "С момента начала суток прошло К секунд. Сколько часов, минут и секунд показывают куранты?"
Var k,a,b:integer;
begin
read(k);
b:=k div 3600;
if bgt;0 then k:=k mod 3600;
a:=k div 60;
if agt;0 then k:=k mod 60;
writeln(b,:,a,:,k);
end.
begin
read(k);
b:=k div 3600;
if bgt;0 then k:=k mod 3600;
a:=k div 60;
if agt;0 then k:=k mod 60;
writeln(b,:,a,:,k);
end.
Компьютеры и вычисления
404
0
Для комментирования необходимо зарегистрироваться на сайте