Question

30 баллов
Составьте программу для нахождения суммы трёх чисел, если хотя бы одно из них кратно 3, иначе модуль разности этих чисел.

Answer 1

var a,b,c:integer;

begin

read (a,b,c);

if (a mod 3 = 0) or (b mod 3 = 0) or (c mod 3 = 0) then write (a+b+c)

else write (abs(a-b-c))

end.

Answer 2

var x1,x2,x3:integer;

begin

writeln('Введите три числа');

readln(x1,x2,x3);

if (x1 mod 3=0)or(x2 mod 3=0)or(x3 mod 3=0) then

writeln('Сумма трех чисел = ',x1+x2+x3)

else writeln('Модуль разности трех чисел = ',abs(x1-x2-x3));

end.