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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
