Var x, i, n, s: longint; //объявление переменных begin s := 0; //изначально сумма равна 0 read(x, n); //ввод x,n for i := 1 to n do s := s + trunc(power(x, i));//n раз //прибавляем к сумме x в i //степени(power) write(s); //выводим сумму end.
Var a:array of array of integer; jmin:array of integer; n,m,i,j,k,min:integer; begin Randomize; write('n = '); readln(n); write('m = '); readln(m); writeln('Исходный массив:'); SetLength(a,n); for i:=0 to n-1 do SetLength(a[i],m); SetLength(jmin,m); for i:=0 to n-1 do begin for j:=0 to m-1 do begin a[i,j]:=random(11); write(a[i,j]:4); end; writeln; end; min:=a[0,0]; jmin[0]:=1; for i:=0 to n-1 do for j:=0 to m-1 do if a[i,j]<min then begin min:=a[i,j]; for k:=0 to m-1 do jmin[k]:=0; jmin[j]:=1; end else if a[i,j]=min then jmin[j]:=1; writeln('min = ',min); for k:=0 to m-1 do write(jmin[k],' '); writeln; for k:=m-1 downto 0 do if jmin[k]=1 then begin for i:=0 to n-1 do SetLength(a[i],Length(a[i])+1); for i:=0 to n-1 do for j:=Length(a[i])-1 downto k+2 do a[i,j]:=a[i,j-1]; for i:=0 to n-1 do a[i,k+1]:=0; end; for i:=0 to n-1 do begin for j:=0 to Length(a[i])-1 do write(a[i,j]:4); writeln; end; end.
begin s := 0; //изначально сумма равна 0
read(x, n); //ввод x,n
for i := 1 to n do s := s + trunc(power(x, i));//n раз
//прибавляем к сумме x в i
//степени(power)
write(s); //выводим сумму
end.