Заполнить массив из 9 элементов степенями 2, начиная с 20=1. Массив объявлен как var mas12: array [0..8] of integer. Вывести значения элементов на экран в одну строку через пробел.
program PowerOfTwo; var mas12: array [0..8] of integer; i: integer; begin for i := 0 to 8 do begin mas12[i] := 1 shl (i + 5); end; for i := 0 to 8 do begin write(mas12[i], ' '); end; end.
После выполнения данного кода на экран будет выведено:
Пример кода на Pascal:
program PowerOfTwo;var
mas12: array [0..8] of integer;
i: integer;
begin
for i := 0 to 8 do
begin
mas12[i] := 1 shl (i + 5);
end;
for i := 0 to 8 do
begin
write(mas12[i], ' ');
end;
end.
После выполнения данного кода на экран будет выведено:
32 64 128 256 512 1024 2048 4096 8192