Определить, делителем каких целых чисел является целое число

Определить, делителем каких целых чисел из А, В и С является целое число N.

Воспользуемся кратким ветвлением и операцией mod для вычисления остатка от деления. Если остаток от деления числа на число n равен 0, то число n является делителем заданного числа.

Программа решения на языке Паскаль:

var n,a,b,c:integer;

begin

readln(a,b,c,n);

writeln('число ', n,' - делитель чисел:');

if a mod n=0 then writeln(a);

if b mod n=0 then writeln(b);

if c mod n=0 then writeln(c);

end.