Соберите на языке Паскаль программу вычисления наибольшего общего делителя (НОД) 2-х целых положительных чисел по модифицированному алгоритму Евклида. var a, b, a1, b1: integer; begin readln (a, b); a1:=a; b1:=b; while (a<>0) and (b<>0) do if a>b then a:=a mod b else b:=b mod a; writeln ('НОД(', a1, ', ', b1,')=', a+b); end.

Задание

Соберите на языке Паскаль программу вычисления наибольшего общего делителя \(НОД\) 2-х целых положительных чисел по модифицированному алгоритму Евклида.

var a, b, a1, b1: integer;
begin
readln \(a, b\);
a1:=a; b1:=b;
while \(a\\lt \\gt 0\) and \(b\\lt \\gt 0\) do
if a>b then a:=a mod b else b:=b mod a;
writeln \('НОД\(', a1, ', ', b1,'\)=', a+b);
end.

Похожие

Тот же тест