• Составить программу для нахождения НОД десяти двухзначных чисел. Паскаль.

Ответы 3

  • А начало можно программы?
  • Это абсолютно полная программа. Можете запустить и убедиться
    • Автор:

      carissa
    • 5 лет назад
    • 0
  • // 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:=aend;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.ПримерВведите 10 натуральных двухзначных чисел: 38 42 56 82 96 32 18 40 58 90НОД=2
    • Автор:

      skyeo1yd
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years