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

Question

Информатика

Дусай

21 ноября, 08:44

Составить программу проверяющую что введённое число делится без остатка на 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.