Определить, делителем каких чисел a,b,c является число К
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
