Відповідь:
program nodd;
var chislo1, {первое число}
chislo2, {второе число}
nod, {наибольший общий делитель}
r:integer; {остаток отделения 1-го числа на 2-е}
begin
Writeln ('Vvedite chisla:');
Readln (chislo1,chislo2); {ввод двух чисел с клавиатуры}
while (chislo1 mod chislo2)<>0 do {цикл выполняется пока остаток <> 0}
begin
r:=chislo1 mod chislo2; {вычисление остатка 1-го числа на 2-ое}
chislo1:=chislo2; {присваиваем 2-е число 1-му}
chislo2:=r; {присваиваем остаток от деления 2-му числу}
end;
nod:=chislo2; {присваиваем 2-е число переменной nod}
Writeln ('NOD: ',nod); {Вывод НОД}
Readln;
end.
Пояснення:
Двовимірний масив – це масив, де кожному елементу ставиться у відповідність два індекси. Такі масиви називають матрицею або прямокутною таблицею. Якщо у матриці однакова кількість стовпців і рядків то вона називається квадратною. Квадратна матриця має головну і побічну діагоналі.
Якщо матриця має розмір n x n.то головна починається елементом з індексами [1,1] (перший індекс – це номер рядка, другий - номер стовпця) і закінчується елементом з індексами [n,n], побічна починається елементом з індексами [1,n] і закінчується елементом з індексами [n,1].
Матриця А[n,m]
... m
A[2,4]
A[5,1] A[5,3]
… … … … … … … …
n
Матриця B[n,n] Cірим кольором замальовані головна (B[1,1], B[2,2],…, B[n,n]) та побічна (B[1,n],B[2,n-1],…, B[n,1]) діагоналі.
Объяснение: