Вводятся два целых числа. Выведите YES, если их сумма делится на 3, NO в ином случае.
Ввод Вывод

1 2 YES
Ввод Вывод

2 5 NO

при любых числах Yes выдает, ведь 2 и 5 не кратно 3

7 делится на 3,но остаток остаётся просто,ща подумаю

ну там 2 и 5 No должно быть, сам знаешь)

устраивает?

да, спасибо)

program abs;var x,y,z:integer;beginreadln(x);{первое число}readln(y);{второе число}z:=x+y;{их сумма}if (z mod 3)=0 thenwriteln(''Yes'')else writeln(''NO'');end.