Var
j,n,i:integer;
begin
for i:=1 to 8 do
begin
n:=1;
for j:=1 to i do
n:=n*2;
writeln(n);
end;
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.