Kesc 27 ноября 2019 в 06:33
Составьте программу определения наибольшего общего делителя двух натуральных чисел.
на абс паскале плис,.очень надо
Составьте программу определения наибольшего общего делителя двух натуральных чисел.
на абс паскале плис,.очень надо
Var a,b,NOD:integer;
begin
write(a=); readln(a);
write(b=); readln(b);
while (alt;gt;0)and(blt;gt;0) do
if agt;b then a:=a mod b else b:=b mod a;
NOD:=a+b;
writeln(НОД=,NOD);
end.
Пример:
a=75
b=125
НОД=25
begin
write(a=); readln(a);
write(b=); readln(b);
while (alt;gt;0)and(blt;gt;0) do
if agt;b then a:=a mod b else b:=b mod a;
NOD:=a+b;
writeln(НОД=,NOD);
end.
Пример:
a=75
b=125
НОД=25
Для комментирования необходимо зарегистрироваться на сайте