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

0 голосов
45 просмотров

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


Информатика (14 баллов) | 45 просмотров
Дан 1 ответ
0 голосов

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.

(1.4k баллов)