Найти все числа делителей к и l в диапозоне чисел m и n (m>n)

Question

Информатика

Астра

24 июня, 14:49

Найти все числа делителей к и l в диапозоне чисел m и n (m>n)

+5

Ответы (1)

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

Натолий · Answer 1

Var k, l, m, n, i:integer;

begin

writeln ('Введите k, l, m, n соответственно') ;

read (k, l, m, n) ;

for i:=n to m do

if (k mod i=0) and (l mod i=0) then writeln (i) ;

end.