Составить программу проверяющую что введённое число делится без остатка на 3 (Паскаль)

Question

Информатика

Оландер

2 января, 10:20

Составить программу проверяющую что введённое число делится без остатка на 3 (Паскаль)

+5

Ответы (1)

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

Эльдина · Answer 1

Program z1;

Var a: integer;

Begin

writeln ('Введите число:') ;

readln (a) ;

if (a mod 3) = 0 then

writeln ('Число кратно 3.')

else

writeln ('Число не кратно 3.') ;

end.