Найти все числа делителей к и l в диапозоне чисел m и n (m больше n)
Найти все числа делителей к и l в диапозоне чисел m и n (m>n)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы