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

Question

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

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.

Comments

спасибо ;-)