Question

Даны 2 натуральных числа A, B. Определить их наибольший общий делитель​

Answer 1

Ответ:

var

 a, b, c: integer;

begin

 Writeln('Введите два числа');

 Read(a, b);

 repeat

   if a > b then

     a := a mod b

   else b := b mod a

 until (a = 0) or (b = 0);

 c := a + b;

 Writeln('Наибольший общий делитель: ', c);

end.

Answer 2

begin
var (a, b) := ReadInteger2;
while b <> 0 do
(a, b) := (b, a mod b);
Print(a)
end.