Программирование на языке Паскаль! Заполните массив степенями числа 2, так чтобы последний элемент массива был равен 1, а каждый предыдущий был в 2 раза больше следующего. Пример 36 16 8 4 2 1

Question

Информатика

Зинуля

4 июля, 22:55

Программирование на языке Паскаль! Заполните массив степенями числа 2, так чтобы последний элемент массива был равен 1, а каждый предыдущий был в 2 раза больше следующего. Пример 36 16 8 4 2 1

+4

Ответы (1)

Знаете ответ?

Мирослав · Answer 1

Var a:array[1 ... 20] of integer;

n, i:integer;

begin

readln (n) ;

a[n]:=1;

for i:=n-1 downto 1 do a[i]:=a[i+1]*2;

for i:=1 to n do write (a[i],' ') ;

end.

Пример:

15

16384 8192 4096 2048 1024 512 256 128 64 32 16 8 4 2 1