Вводятся два целых числа. Выведите YES, если их сумма делится на 3, NO в ином случае. Ввод Вывод 1 2 YES Ввод Вывод 2 5 NO
Вводятся два целых числа. Выведите YES, если их сумма делится на 3, NO в ином случае.
Ввод Вывод
1 2 YES
Ввод Вывод
2 5 NO
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы