Алгоритм Евклида. Найти наибольший общий делитель - Turbo Pascal

Формулировка задачи:

Пожалуйста, помогите) нужно написать задачу в Паскале и написать блок-схему. Тип: Цикл с предусловием. Алгоритм Евклида. Найти наибольший общий делитель. (необходимо уменьшать каждый раз большее из чисел на величину меньшего до тех пор, пока оба значения не станут равными).

Код к задаче: «Алгоритм Евклида. Найти наибольший общий делитель - Turbo Pascal»

textual
Var n,m:integer;
Begin
    write('n,m: ');readln(n,m);
    While n<>m do
     if n>m then n:=n-m
      else m:=m-n;
    writeln('NOD = ',n);
    readln;
End.

8   голосов, оценка 3.750 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы