Question

выяснить, являются ли числа 2, 3 и 5 делителями некоторого заданного числа А. (pascal abc)

Answer 1

var
a:integer;
begin
readln(a);
if a mod 2 = 0 then
writeln('2 делитель числа ',a)
else
writeln('2 не делитель числа ',a);
if a mod 3 = 0 then
writeln('3 делитель числа ',a)
else
writeln('3 не делитель числа ',a);
if a mod 5 = 0 then
writeln('5 делитель числа ',a)
else
write('5 не делитель числа ',a);
end.