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

Ulybaw Ulybaw    3   28.07.2019 20:00    1

Ответы
Obcenceee Obcenceee  03.10.2020 15:57
Var a,b,NOD:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
while (a<>0)and(b<>0) do
 if a>b then a:=a mod b else b:=b mod a;
NOD:=a+b;
writeln('НОД=',NOD);
end.

Пример:
a=75
b=125
НОД=25
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика