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

Question

Информатика

Адина

12 ноября, 23:13

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

+2

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