Составьте программу, которая проверяет, делится ли на 3 введенное целое число, и выводит на экран соответствующее сообщение: "делится" либо "не делится"

вот на паскале:

 

var a: int;

begin

write('input n: ');

read(n);

if(n mod 3) = 0 then

writeln('делится')

else

writeln('не делится')

end.

Если система пятеричная, в ней 5 цифр - от 0 до 4. но ноль не является натуральным числом, поэтому начнем с единицы. итак, 1, 2, 3, 4. каждое число получается увеличением значения своего предшественника на единицу. 4+1 = 5, это мы знаем, но цифры 5 в этой системе нет. так же, как в нашей десятичной системе нет цифры 10 - последняя в ней девятка. а 10 - это сброс разряда в ноль и перенос единички в следующий разряд. потом будет 1, 2, 3, ..9, и снова перенос 1 со сбросом в 0. в пятиричной системе - то же самое. после 4 идет сброс в ноль и единичка в старший разряд. поэтому получаются числа 10, 11, 12, 13, 14 далее - сброс, плюс единичка в старший, и получим 20. все, получено 10 чисел. окончательно: 1, 2, 3, 4, 10, 11, 12, 13, 14, 20

program helloworld;

var x,y: integer;

begin

     

      x: =4;

             

      if (x< =0) then

              y: =0;

 

      if (x> =0) and (x< =1) then

              y: =x;

             

      if (x> 1) then

              y: =sqr(x);

 

      write(y);

end.