Question

Помогите составить две задачи с div и mod. Относительно легкие

Answer 1

var x, L, M: integer;

begin

   readln(x);

   L := 0;

   M := 0;

   while x > 0 do

   begin

       L := L + 1;

       if x mod 2 = 0 then

           M := M + (x mod 10) div 2;

       x := x div 10;

   end;

   writeln(L);

   writeln(M);

end.

Answer 2

Конечно! Вот две относительно легкие задачи, которые используют операции div (целочисленное деление) и mod (остаток от деления):

Задача 1: Количество недель и дней У вас есть общее количество дней (целое число), и вы хотите узнать, сколько это составляет полных недель и сколько дней остается.

Задача: Напишите программу, которая запрашивает у пользователя общее количество дней и выводит на экран количество полных недель и количество дней, которые остаются после их вычитания.

Пример ввода/вывода:

Copy code
Введите общее количество дней: 17
Это составляет 2 недели и 3 дня.

Задача 2: День недели У вас есть число от 1 до 365 (представляющее день в году), и вы хотите узнать, на какой день недели это число приходится (например, понедельник, вторник и т.д.).

Задача: Напишите программу, которая запрашивает у пользователя число от 1 до 365 и выводит на экран день недели, на который это число приходится (используйте числовое представление, например, 1 - понедельник, 2 - вторник и т.д.).

Пример ввода/вывода:

yamlCopy code
Введите число от 1 до 365: 143
Это пятница.

Обратите внимание, что в обоих примерах используются операции div и mod для решения задач. В первой задаче они помогут вычислить количество полных недель и количество оставшихся дней, а во второй задаче - определить день недели по числу дня в году.