Информатика, опубликовано 09.04.2019 20:20
Составить программу для нахождения нод десяти двухзначных чисел. паскаль.
Ответ оставил: Гость
// 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
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01