Паскаль!!! С помощью цикла while Запросить число, записать его в первый элемент...

Question

Паскаль!!! С помощью цикла while Запросить число, записать его в первый элемент массива. Остальные 9 элементов создать по такой формуле: каждый следующий элемент вдвое больше предыдущего. Вывести массив.​

Answer 1

Pascal ABC.

Код:

var

  a: array [1..10] of integer;

  i:integer;

begin

    readln(a[1]);

    i := 2;

    while i < 11 do begin

          a[i] := a[i-1] * 2;

          inc(i);

    end;

    i := 1;

    while i < 11 do begin

          write(a[i], ' ');

          inc(i);

    end;

    writeln;

end.

Пример работы:

Ввод:

6

Вывод:

6 12 24 48 96 192 384 768 1536 3072

Ввод:

3

Вывод:

3 6 12 24 48 96 192 384 768 1536