Определить, кратно ли заданное число трём; если нет, вывести остаток. (Напишите ** языке...

Question

Определить, кратно ли заданное число трём; если нет, вывести остаток. (Напишите на языке программирования) Пожалуйста!!!!

Answer 1

var x:integer;

Begin

 write('Введите число: '); read(x);

 

 if(x mod 3 = 0) then write('Число кратно трем!') else

   write('Число не кратно трем (остаток: '+x mod 3+')');

End.