Напишите программу нахождения часов, минут и секунд в n суток.

Question

Информатика

Агапа

13 января, 09:04

Напишите программу нахождения часов, минут и секунд в n суток.

+5

Ответы (1)

Знаете ответ на вопрос?

Агриппина · Answer 1

Var n, a, h, m, s:integer;

begin

writeln ('Введите кол-во дней') ;

read (n) ;

if n>1 then begin

writeln ('В ', n,' сутках:') ;

writeln (n*24,' часа') ;

writeln (n*24*60,' минут') ;

writeln (n*24*60*60,' секунд')

end;

if n=1 then begin

writeln ('В ', n,' дне') ;

writeln (n*24,' часа') ;

writeln (n*24*60,' минут') ;

writeln (n*24*60*60,' секунд') ;

end;

end.