Question

Помогите с заданием по информатике в Pascal. (даю 98 баллов) . . . Вывести, сколько в учебном году недель, часов, минут, секунд.

Answer 1

begin

showmessage "Сколько их, считать лень";

end.

всё, может не так понял.

Answer 2

Конечно, я могу помочь вам с этим заданием! Вот пример кода на Pascal, который выводит количество недель, часов, минут и секунд в учебном году:

pascalCopy code
program SchoolYear;

const
  SecondsPerMinute = 60;
  MinutesPerHour = 60;
  HoursPerDay = 24;
  DaysPerWeek = 7;
  WeeksPerYear = 52;

var
  TotalSeconds, RemainingSeconds, TotalMinutes, RemainingMinutes,
  TotalHours, RemainingHours, TotalDays, RemainingDays,
  TotalWeeks: Integer;

begin
  TotalSeconds := SecondsPerMinute * MinutesPerHour * HoursPerDay * DaysPerWeek * WeeksPerYear;

  TotalMinutes := TotalSeconds div SecondsPerMinute;
  RemainingSeconds := TotalSeconds mod SecondsPerMinute;

  TotalHours := TotalMinutes div MinutesPerHour;
  RemainingMinutes := TotalMinutes mod MinutesPerHour;

  TotalDays := TotalHours div HoursPerDay;
  RemainingHours := TotalHours mod HoursPerDay;

  TotalWeeks := TotalDays div DaysPerWeek;
  RemainingDays := TotalDays mod DaysPerWeek;

  writeln('В учебном году:');
  writeln('Недель: ', TotalWeeks);
  writeln('Часов: ', RemainingHours);
  writeln('Минут: ', RemainingMinutes);
  writeln('Секунд: ', RemainingSeconds);
end.

Этот код вычисляет общее количество секунд в учебном году и затем разбивает его на недели, часы, минуты и секунды. Результат выводится на экран.

Надеюсь, это поможет вам с заданием! Если у вас есть еще вопросы, не стесняйтесь задавать.