Алгоритм Евклида поиска НОД на Pascal

Алгоритм Евклида поиска НОД...

var a,b,c: integer;
 
begin
  writeln('Введите a,b: ');
  read(a,b);  
  while b<>0 do
  begin
    c := a mod b;
    a := b;
    b := c;
  end;
  writeln('Наибольший Общий Делитель = ',a);
end.



Просмотров: 2646
10.02.2015, 10:21 -

Категория: Статьи » Программирование » Pascal