Алгоритм Евклида поиска НОД на 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.
10.02.2015, 10:21 -
Категория: Статьи » Программирование » Pascal