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

Question

Информатика

Костюша

12 июля, 14:50

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

+1

Ответы (1)

Знаете ответ на вопрос?

Дианка · 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.