Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.