Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.