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

Паскаль

Question

Информатика

Ермиония

28 февраля, 19:40

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

Паскаль

+2

Ответы (1)

Знаете ответ на вопрос?

Витюшка · Answer 1

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.

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

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

Паскаль