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

Question

Богдан

26 декабря, 15:07

+3

Ответы (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