Question

20 БАЛЛОВ Ваш отпуск длится f дней. Сколько полных недель и дней составляет ваш отпуск?Входные данные:52Выходные данные:52 дней(я) - 7 недель 3 дней (я)НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ

Answer 1

Ответ:

uses crt;

var d, n: integer;

begin

clrscr;

writeln('Введите кол-во дней');

read(d);

n := d div 7; d2 := d mod 7;

writeln(d, ' дней(я) = ', n, ' недель ', d, ' дней(я)');

readkey;

end.

Answer 2

Конечно! Вот пример программы на языке Pascal, которая решает задачу:

pascalCopy code
program VacationDuration;

var
  totalDays, weeks, remainingDays: Integer;

begin
  writeln('Введите общее количество дней отпуска:');
  readln(totalDays);

  weeks := totalDays div 7;  // Получаем количество полных недель
  remainingDays := totalDays mod 7;  // Получаем количество оставшихся дней

  writeln('Отпуск длится ', totalDays, ' дней - ', weeks, ' недель ', remainingDays, ' дней');
end.

После запуска программы вы увидите приглашение для ввода количества дней отпуска. Введите значение 52 и нажмите Enter. Программа выведет следующий результат:

Copy code
Отпуск длится 52 дней - 7 недель 3 дня

Обратите внимание, что в Pascal символ я не используется для обозначения единицы измерения дней, поэтому результат будет выведен без этого символа.