Написать программу в тетради: Программа должна определить, делится ли введенное число на 3 без остатка или не делится

Question

Информатика

еврейкое

9 ноября, 14:30

Написать программу в тетради: Программа должна определить, делится ли введенное число на 3 без остатка или не делится

+2

Ответы (1)

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

Яворика · Answer 1

var a:integer;

begin

readln (a) ;

if a mod 3=0 then writeln ('Число делится на 3')

else writeln ('Число не делится на 3') ;

end.

Пример:

25

Число не делится на 3