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

Паскаль ABCnet

Question

Информатика

Мячаслав

14 июня, 08:14

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

Паскаль ABCnet

+2

Ответы (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