Напишите программу которая проверяет кратна ли тринадцати утроенная сумма двух произвольных чисел, введенных...

program CheckMultipleOf13; var num1, num2, sum, tripleSum: integer; begin writeln('Enter the first number: '); readln(num1); writeln('Enter the second number: '); readln(num2);

sum := num1 + num2; tripleSum := 3 * sum;

if tripleSum mod 13 = 0 then

writeln('The tripled sum of the numbers is a multiple of 13')

else

writeln('The tripled sum of the numbers is not a multiple of 13');

end.

Программа на языке Pascal, которая проверяет кратность тринадцати утроенной сумме двух произвольных чисел:

program CheckMultiples;

var
  num1, num2, sum, triple_sum: integer;

begin
  writeln('Введите первое число: ');
  readln(num1);
  
  writeln('Введите второе число: ');
  readln(num2);
  
  sum := num1 + num2;
  triple_sum := 3 * sum;
  
  if triple_sum mod 13 = 0 then
    writeln('Утроенная сумма чисел кратна тринадцати.')
  else
    writeln('Утроенная сумма чисел не кратна тринадцати.');
end.

Эта программа сначала запрашивает у пользователя два произвольных числа, вычисляет их сумму, утраивает эту сумму, а затем проверяет, кратна ли она тринадцати. Если утроенная сумма чисел кратна тринадцати, программа выведет сообщение "Утроенная сумма чисел кратна тринадцати.", в противном случае программа выведет сообщение "Утроенная сумма чисел не кратна тринадцати.".

Конечно, давайте разберём, как можно написать программу на языке Pascal, которая проверяет, кратна ли тринадцати утроенная сумма двух произвольных чисел, введённых с клавиатуры.

Шаги для решения задачи:

1. Ввод данных: Получить два числа от пользователя.
2. Вычисление утроенной суммы: Сложить два числа и умножить результат на три.
3. Проверка на кратность тринадцати: Проверить, делится ли утроенная сумма на 13 без остатка.
4. Вывод результата: Сообщить пользователю, кратна ли утроенная сумма тринадцати.

Программа на Pascal:

program CheckMultipleOfThirteen;

var
  num1, num2: Integer;
  tripleSum: Integer;

begin
  { Ввод двух чисел }
  Write('Введите первое число: ');
  ReadLn(num1);
  Write('Введите второе число: ');
  ReadLn(num2);

  { Вычисление утроенной суммы }
  tripleSum := (num1 + num2) * 3;

  { Проверка кратности тринадцати }
  if tripleSum mod 13 = 0 then
    WriteLn('Утроенная сумма кратна тринадцати.')
  else
    WriteLn('Утроенная сумма не кратна тринадцати.');
end.

Объяснение программы:

• Переменные: Объявлены переменные num1 и num2 для хранения вводимых пользователем чисел, а также tripleSum для хранения утроенной суммы.

• Ввод: ReadLn используется для считывания значений, введённых пользователем.

• Вычисление: Утроенная сумма вычисляется с помощью выражения (num1 + num2) * 3.

• Проверка кратности: Условие if tripleSum mod 13 = 0 проверяет, делится ли утроенная сумма на 13 без остатка. Если да, выводится сообщение о кратности, в противном случае — о некратности.

Эта программа позволяет пользователю ввести два числа и проверяет, кратна ли тринадцати утроенная сумма этих чисел.