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

Question

Информатика

Дигна

1 декабря, 19:58

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

+3

Ответы (1)

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

Илюся · 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.

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

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