Var a,n,i,ans:integer;
begin<span>
readln(a);</span><span>
readln(n);</span><span>
i:=0;</span><span>
ans:=1;</span><span>
while(i<n) do</span><span>
begin</span><span>
ans:=ans*a*a;</span><span>
inc(i);</span><span>
writeln(ans);</span><span>
end;
</span>end.
<span>Так? По тести)</span>
var a:string;
i,j:integer;
begin
readln(a);
while pos('#',a)<>0 do delete(a,pos('#',a),1);
<span>средствам оперативной полиграфии</span>
Использовать Чертежник
алг В
нач
опустить перо
сместиться на вектор(0,3)
сместиться на вектор(1,-0.25)
сместиться на вектор(0,-1)
сместиться на вектор(-1,-0.25)
сместиться на вектор(1.5,-0.25)
сместиться на вектор(0,-1.25)
сместиться на вектор(-1.5,0)
кон
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var s:=a.Where(t->t.IsOdd and (t>0));
if s.Count=0 then Writeln('Нет нечетных положительнных')
else s.Min.Println
end.
<u>Пример</u>
n= 13
31 -5 -22 19 -30 21 -11 -28 -3 20 -19 36 -29
19