См. решение во вложении. Всего возможно три варианта
1. Программа суммирует числа от 1 до 10, следовательно в ответе будет сумма: 1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 + 10 = 55.
1.1.
<em>var k,s:integer;</em>
<em>begin</em>
<em>s:=0;</em>
<em>k:=1;</em>
<em>repeat
</em>
<em>s:=s+k;</em>
<em>k:=K+1;</em>
<em>until k >10;
</em>
<em>write(s);</em>
<em>end.</em>
<em>2. в первом цикле
</em>
for n:=1 to 100 do
A[n]:=n-10;
<em>вычисляются элементы массива А по формуле</em> A[n]:=n-10<em>, первые 10 из них будут отрицательные.
</em>
во втором цикле
for n:=1 to 100 do
B[n]:=A[n]*n;
<em>вычисляются элементы массива В по формуле </em>B[n]:=A[n]*n, а т.к. первые 10 элементов массива А отрицательные числа, то и 10 первых элементов массива В будут отрицательными, а т.к. в массиве В 100 элементов, то положительных будет 90.
<em>
</em>
Шесть
Если представить эти тропинки в виде проекции, то по сути мы имеем просто 3 отрезка, которые встречаются в одной точке (для проверки можете так 3 карандаша положить на стол концами друг к другу). Нам надо к каждому из трех "входов" подобрать по два "выхода" (при условии, что мы не можем вернуться назад).
То-есть мы должны 3*2 =6 раз спуститься, проложив 6 маршрутов.
Функция sqr(x) служит для возведения аргумента х в квадрат, поэтому представим a¹⁰ в виде максимально возможного набора операций возведения в квадрат.
a¹⁰ = a²·a⁸ = a²·(a⁴)² = a²·[(a²)²]²
var
a:real;
begin
Write('a=');
Read(a);
Writeln(a,'^10=',sqr(a)*sqr(sqr(sqr(a))))
end.
Тестовые решения
a=2
2^10=1024
a=3.18
3.18^10=105747.765633159
a=10
10^10=10000000000
a=318.53
318.53^10=1.07523505784868E+25