Составить программу, считывает 2 числа, если сумма этих чисел кратно 3, то результат уменьшает в 3 раза, в противном случае оставляет без изменений.

Хотите узнать готовый ответ на вопрос Составить программу, считывает 2 числа, если сумма этих чисел кратно 3, то результат уменьшает в 3 раза, в противном случае оставляет без изменений. и правильно решить домашнее задание по предмету Информатика? Подробное решение смотрите ниже.

Составить программу, считывает 2 числа, если сумма этих чисел кратно 3, то результат уменьшает в 3 раза, в противном случае оставляет без изменений.

Var
a, b:integer;
begin
Readln(a,b);
if (a+b)mod 3 = 0 then
Writeln((a+b)/3)
else
Writeln(a+b);
end.

Пример:
12 9
7


Похожие ответы

Сформулируйте правила выбора записей по условию, представляющему сложное логическое выражение, в терминах "вырезать", "склеить".
Сформулируйте правила выбора записей по условию, представляющему сложное логическое выражение, в
Создать текстовый файл Fin. В одномерном массиве М[1.. 10] определите индексы наибольшего элемента. Результат вывести в файл Four.
Создать текстовый файл Fin. В одномерном массиве М1.. 10 определите индексы наибольшего элемента.
Дано целое число. Если оно кратно 5, увеличить его в 2 раза, если нет- уменьшить на 5.
Дано целое число. Если оно кратно 5, увеличить его в 2 раза, если нет- уменьшить на