Написать программу, которая вычисляет наибольший общий делитель двух целых чисел Паскаль

Question

Написать программу, которая вычисляет наибольший общий делитель двух целых чисел Паскаль

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a, b: integer; begin Writeln('Введите два числа'); Readln(a, b); repeat if a > b then a := a Mod b else b := b Mod a; until (a = 0) Or (b = 0); writeln('НОД = ', a + b); end.