Ответы
Ответ дал:
0
// В программе вычисляется НОД(a,c)
var a,c:integer;
begin
readln(a,c);
while not (a=c) do
if a>c then a:=a-c else c:=c-a;
writeln(a);
end.
Пример:
75 100
25
var a,c:integer;
begin
readln(a,c);
while not (a=c) do
if a>c then a:=a-c else c:=c-a;
writeln(a);
end.
Пример:
75 100
25
Ответ дал:
0
Спасибо =)
Ответ дал:
0
Пожалуйста.
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад