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

Паскаль

Question

Информатика

Нюта

30 июля, 15:05

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

Паскаль

+5

Ответы (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.

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

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

Паскаль