Question

Определить, делителем каких чисел a,b,c является число К

Answer 1

var

  a, b, c, k : integer;

begin

  read (a, b, c, k);

  if (a mod k <> 0) and (b mod k <> 0) and (c mod k <> 0) then writeln ('Никаких')

  else begin

    if a mod k = 0 then writeln ('Числа a');

    if b mod k = 0 then writeln ('Числа b');

    if c mod k = 0 then writeln ('Числа c');

  end;

end.