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

Дано n-число прошедших дней с начала месяца. Написать программу подсчета количества часов (has), минут(min) и секунд(sec) от начала месяца. входные данные n=5 выходные данные 120 7200 432000

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

Program n_1;
var has,min,sec,days:integer;
begin
days:=5;
Println(Число дней,прошедших с начала месяца: ,days);
has:=days*24;
min:=has*60;
sec:=min*60;
Println(С начала месяца прошло: +days+ Дней, +has+ Часов +min+ Минут +sec+ Секунд);
  end.