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

Question

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

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

2 5 NO

Answer 1

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

Comments

выдает везде Yes, ввел 2 и 5 и выдало Yes

---

попробуй отредактируй и лайк поставлю и 5 звезд

---

я забыл z ещё обозначить-z:integer

---

ну да, это я уже написал

---

ну и что ты хочешь сейчас

---

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

---

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

---

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

---

устраивает?

---

да, спасибо)