Question

В паскале:Идёт k-я секунда суток. Определить который сейчас час (в часах, минутах и секундах). Например, если k=13257=3*3600+40*60+57, то часов - 3, минут - 40, секунд - 57.

Answer 1

Var k,h,m,s:integer;
begin
write('Введите число секунд: ');
readln(k);
h:=k div 3600;
k:=k mod 3600;
m:=k div 60;
s:=k mod 60;
writeln('Часов: ',h);
writeln('Минут: ',m);
writeln('Секунд: ',s);
end.