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

Question

Алла

22 февраля, 23:52

+2

Ответы (1)

Знаете ответ на вопрос?

Тимаха · Answer 1

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