Я как понял нужен любой алгоритм??
Если да,то вот пример на PASCAL,если нет,то извеняюс! Видимо вопрос не понял.
<span>Число в степени</span><span>
<span>Program Stepen_chisla;
Var
Z, А : Real; M : integer;
Function Step (N: integer; X:real): real;
Var
I: integer; Y: Real;
Begin
I:=1; Y:=1;
While I<=N do
Begin
Y:=Y*X; I:=I+1;
End;
Step:=Y;
End;</span><span> {Конец функции}</span><span>
Begin
Write(‘Введи степень и возводимое число’); Readln(Z,M);
F:=Step(M,Z);
Writeln(Z, ‘ в степени’, M, ‘=’,F);
End.</span></span>
Var
i,n:integer;
s,min:real;a:array[1..10]of real;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
begin
a[i]:=random(-10,10);
write(a[i],' ');
if a[i]<0 then
begin
s:=s+a[i];
n:=n+1;
end;
if a[i]<min then min:=a[i];
end;
writeln;
s:=s/n;
for i:=1 to 10 do if a[i]=min then a[i]:=s;
writeln('Среднее отрицательных:',s);
writeln('Измененный массив:');
for i:=1 to 10 do write(a[i],' ');
<span>end.</span>
Const
M = 3;
N = 3;
Var
A:array[1..M,1..N]of real;
B:array[1..N]of integer;
i,j:integer;
Begin
WriteLn('Заполни массив ',M,'x',N);
For i:= 1 to M do
For j:= 1 to N do
Read(A[i,j]);
For j:= 1 to N do
For i:= 1 to M do
if (A[i,j]>0) then B[j]:=B[j]+1;
j:=N;
For i:= 1 to N-1 do
if (B[j]>B[i]) then j:=i;
WriteLn(j)
End.
Var a,b,c:int64;
begin
read(a,b,c);
writeln(c);
writeln(a);
writeln(b);
<span>end.</span>
Dim a as double
dim n as double
dim c as double
a=(textbox1.text)
n=(textbox2.text)
c=(a+1)n
(textbox3.text)=c