Если в паскале то вот
vara:array [1..30] of integer;i,s,k,n:integer;h:real;begins:=0;k:=0;writeln('введите количество чисел');read(n);randomize;for i:=1 to n do begina[i]:=random(100);write(a[i]:3);end;writeln();for i:=1 to n do beginif (a[i] mod 2=0) and (i mod 2=0) then begins:=s+a[i];k:=k+1;end;end;if k>1 then h:=s/k;writeln(h); if k=0 then begin writeln('таких чисел нет'); read; halt; end;<span>end.</span>
Если кузнечик двигался вперёд 2, а назад 1, значит он всё время смесчается на 1 клетку, соответственно он прошел 35 клеток.
Остальные 5 команд он двигаля назад, значит он прошел 6*5=30клеток.
Всё это можно заменить на команду (Вперёд 5)
Ответ: 2
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var R := Sqrt(ReadReal('x=')+Pi/4);
R.Println;
end.
<h2>Пример</h2><h3>x= 45.3243</h3><h3>6.79041222337771 </h3>
R = b⁵ = b¹⁺²⁺² = b² × b² × b; c = b² ⇒ R = b×c×c
Итак,
1) c = b×b (с - промежуточный результат)
2) c = c×c
3) R = b×c(R - окончательный результат)