Батырхан любит числа которые без остатка делятся ** 3. К сожалению для очень больших...

Question

Батырхан любит числа которые без остатка делятся на 3. К сожалению для очень больших чиселон не может проверить должен ли он любитьего или нет. Помогите ему написав программу, которая поможет ему.

Answer 1

Чтобы проверить , является ли число Х кратным 3 , используем оператор mod с условием и получим
if х mod 3 = 0 then .....

program zadacha;varx: integer;
beginwriteln('vvedite chislo');readln(x);if x mod 3 = 0 then writeln('chislo ', x, ' delitsya na 3 ') else writeln('chislo ', x, ' ne delitsya na 3 ');end.

---