Человеку сегодня исполнилось R лет.Сколько ему дней, часов, минут, секунд
(високосные годы не учитывать).
Спасибо.
Program test ;
Var
age:integer;
Begin
Writeln(Вы прожили уже ,age*365, дней);
Writeln(age*365*24, часа);
Writeln(age*365*24*60, минут);
Writeln(age*365*24*60*60, секунд);
End;
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
