Цитата:
Сообщение от cережка
задание 5. Составить программу, которая определяет для двух вводимых натуральных чисел M и N количество их общих делителей (не считая 1).
|
Код:
Program Z_2;
var m,n,i,c,y: integer;
begin
write('m = ');
readln(m);
write('n = ');
readln(n);
write('Общие делители : ');
for i := 2 to abs(m - n) div 2 do
if (m mod i = 0) and (n mod i = 0) then
begin
write(i, ' ');
c := (-1) * i;
write(c, ' ');
y:=y+1;
end;
if y = 0 then
writeln('Общих делителей нет');
writeln;
writeln('Всего общих делителей, кроме 1:',2*y-2);
readln;
end.