Составить программу которая вычисляет сколько в n сутках часов: минут: секунд

Question

Информатика

Лебния

5 марта, 17:43

Составить программу которая вычисляет сколько в n сутках часов: минут: секунд

+5

Ответы (1)

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

Гиацинт · Answer 1

Program Sutki

var n, ch, m, s:integer;

begin

writeln ('Vvedite kol-vo sutok') ;

readln (n) ;

ch:=n*24;

m:=ch*60;

s:=m*60;

writeln ('V ', n,' sutok (sutkah) ', ch,' chasov,', m,' minut', s,' sekund') ;

readln;

end.