Составьте блок-схему и программу вычисления 1+2+4+8+...+2^10
Var i,a,s:integer;
begin
s:=1;
a:=1;
for i:=1 to 10 do begin
a:=a*2;
s:=s+a;
end;
write(S=,s);
readln
end.
это решение для Pascal abc но могу и на C++ если надо
Оцени ответ
Вход
Регистрация
Задать вопрос
Var i,a,s:integer;
begin
s:=1;
a:=1;
for i:=1 to 10 do begin
a:=a*2;
s:=s+a;
end;
write(S=,s);
readln
end.
это решение для Pascal abc но могу и на C++ если надо