9.
a =2823 b=0
пока a > b делать
b =(a mod 100)*10
a =(a div 10)*10-b
a =2823 b=0
2823 > 0 (да)
b = 230 a = 2590
2590 > 230 (да)
b = 900 a = 1690
1690 > 900 (да)
b = 900 a = 790
790>900 (нет - цикл не запуститься)
Ответ: 3 (a = 790 b = 900)
10.
for n:=1 to 100 do
a[n]:=(n-80)*(n-80);
for n:=1 to 100 do
b[101-n]:=a[n];
Рассмотрим отдельно как заполняются массивы:
1)
for n:=1 to 100 doa[n]:=(n-80)*(n-80);
Т.е. первый элемент будет равен a[1] = (1-80)*(1-80) = 6241, второй a[2] = (2-80)*(2-80) = 6084 и т.д. Следовательно первый элемент массива A будет максимальным, а последний минимальным.
2)
for n:=1 to 100 dob[101-n]:=a[n];
Т.е. последний элемент массива B будет равен первому элементу массива A (b[100] = a[1]). Следовательно последний элемент массива B будет максимальным, а первый минимальным.
Ответ: 1 (B[100])