Написать программу, вычисляющую наибольший общий делитель двух чисел.

Beloglazov

Всем привет. Не могу решить эти задания. Можете помочь?Я то я пропустил темы,теперь плохо понимаю.2. Написать программу, вычисляющую наибольший общий делитель двух чисел.
2 ответа

Beloglazov

2.
var
  x1,x2,i,tmp:integer;
begin
  readln(x1);
  readln(x2);
  if x2 > x1 then begin
    x1:=tmp;
    x1:=x2;
    x2:=tmp;
  end;
  tmp:=1;
  for i:= 2 to (x1 div 2)+1 do
  if (x1 mod i =0) and (x2 mod i =0) then tmp:=i;
  writeln('NOD = ',tmp);
end.


Beloglazov

Law[L]esS, Спасибо большое.