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

Question

Константинка

29 января, 04:31

+5

Ответы (1)

Знаете ответ?

Акинф · Answer 1

var a:integer;

Begin

read (a) ;

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

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

readln;

End.