// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
function gcd(a,b:integer):integer; // НОД begin while b<>0 do begin a:=a mod b; Swap(a,b) end; Result:=a end;
begin var a:=ReadArrInteger(Введите 10 натуральных двухзначных чисел:,10); var g:=gcd(a[0],a[1]); for var i:=2 to 9 do g:=gcd(g,a[i]); Writeln(НОД=,g) end.
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
