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

1

Ответы и объяснения

2013-09-10T14:29:54+04:00
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.