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

Паскаль

Question

Информатика

Андриан

11 февраля, 09:14

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

Паскаль

+3

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

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

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

Паскаль