Program xa;
var
y,x:longint;
i,k,j,m:integer;
begin
Writeln('BBedute 4uClo');
readln(x);
m:=x;
y:=0;
k:=1;
for i:=10 downto 0 do
begin
if i<>0 then
begin
x:=m;
for j:=1 to i-1 do
x:=x*m
end
else
x:=1;
y:=y+x*k;
inc(k);
end;
Writeln('y= ' ,y);
readln
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
