Question

Вычислить 1+2+4+8+...+210 Нужно написать программу в паскале.

Answer 1

Var a,x:integer;
begin
for a:=0 to 210 do
if (a mod 2=0) or (a=1) then
x:=a+x;
writeln(x);
end.