Заполните массив степенями числа 2 (от 2 в 1 степени до 2 в энной степени)

Паскаль ABCnet

Question

Информатика

Лонг

2 июля, 18:58

Заполните массив степенями числа 2 (от 2 в 1 степени до 2 в энной степени)

Паскаль ABCnet

+3

Ответы (1)

Знаете ответ на вопрос?

Вивяна · Answer 1

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

i, x, n:integer;

begin

x:=1;

write ('Введите степень 2 (n<=30) : ') ;

readln (n) ;

for i: = 1 to n do

begin

a[i]: = x*2;

write (a[i],' ') ;

x:=x*2

end

end.

Заполните массив степенями числа 2 (от 2 в 1 степени до 2 в энной степени)Паскаль ABCnet

Заполните массив степенями числа 2 (от 2 в 1 степени до 2 в энной степени)

Паскаль ABCnet