Регистрация
flora21345
28.02.2022 14:57
Информатика
Есть ответ 👍

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

164
348
Посмотреть ответы 2

Ответы на вопрос:

artyommamedov
artyommamedov
4,7(26 оценок)
// 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. пример введите 10 натуральных двухзначных чисел: 38 42 56 82 96 32 18 40 58 90 нод=2
nikitosik1296
nikitosik1296
4,8(33 оценок)

4 это целая часть от деления

Популярно: Информатика