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

Question

Информатика

Мелания

25 октября, 01:59

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

+5

Ответы (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.