Помогите написать программу для нахождения НОД ABC Pascal
Помогите написать программу для нахождения НОД ABC Pascal
Гость
Ответ(ы) на вопрос:
Гостьvar
a,b:integer;
begin
Read(a,b);
while a <> b do
if a > b then a := a - b
else b := b - a;
Writeln(a)
end.
Гостьvar a,b,nod:integer;
begin
readln(a,b);
if a>=b then nod:=a mod b else nod:=b mod a;
writeln(nod)
end.
Не нашли ответ?
Похожие вопросы