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

Question

Сеня

18 января, 14:45

+2

Ответы (1)

Знаете ответ на вопрос?

Агафья · Answer 1

var a:integer;

Begin

read (a) ;

if a mod 3 = 0 then writeln ('Делится')

else writeln ('Не делится') ;

readln;

End.