// Работает под Pascal ABC.NET// Заводим переменные
var
// Нужно n типа целое для того, чтобы хранить ввод пользователя
n: Integer;
// По условию задачи необходим массив. Тк N <= 20, то заводим от 1 до 20.
// В массиве будут храниться целые поэтому Integer
a: Array [1 .. 20] of Integer;
// Также нам понадобится счетчик, указывающий на обрабатываемый элемент массива
i: Integer;
begin
// Считываем n с клавиатуры
ReadLn(n);
// Пусть первый элемент равен 1
a[1] := 1;
// Каждый последующий элемент массива
for i := 2 to n do
// Равен предыдущему элементу массива умноженному на 2
a[i] := a[i-1] * 2;
// Вывод каждого элемента массива через пробел
for i := 1 to n do
Write(a[i], ' ');
end.
// Работает под Pascal ABC.NET
// Заводим переменные
var
// Нужно n типа целое для того, чтобы хранить ввод пользователя
n: Integer;
// По условию задачи необходим массив. Тк N <= 20, то заводим от 1 до 20.
// В массиве будут храниться целые поэтому Integer
a: Array [1 .. 20] of Integer;
// Также нам понадобится счетчик, указывающий на обрабатываемый элемент массива
i: Integer;
begin
// Считываем n с клавиатуры
ReadLn(n);
// Пусть первый элемент равен 1
a[1] := 1;
// Каждый последующий элемент массива
for i := 2 to n do
// Равен предыдущему элементу массива умноженному на 2
a[i] := a[i-1] * 2;
// Вывод каждого элемента массива через пробел
for i := 1 to n do
Write(a[i], ' ');
end.