Сформируйте и выведите целочисленный массив содержащий степени двойки от первой до 16

Question

Сформируйте и выведите целочисленный массив содержащий степени двойки от первой до 16

Answer 1

Да.... если судить по предыдущем решению, "в школу снова не хочу!" )))

// PascalABC.NET 3.0, сборка 1156 от 30.01.2016
begin
  Range(1,16).Select(x->Power(2,x)).ToArray.Println
end.

Тестовое решение:
2 4 8 16 32 64 128 256 512 1024 2048 4096 8192 16384 32768 65536

Замечание: ToArray. можно выбросить и написать
Range(1,16).Select(x->Power(2,x)).Println - это была просто дань требованию условия зачем-то создать массив и вывести его значения.

Comments

Хорошо, я согласен, слово "требование" достаточно жесткое. Заменим на "пожелание". Ибо если это было даже не пожелание "писать попроще", то зачем тогда оно вообще?

---

Представьте себе спортивную школу, где лучшему ... скажем, прыгуну, все говорят: "не прыгай так, другие не смогут этого!". И кккие результаты будут у выпускников той школы?

---

Попробуйте прочитать хотя бы первых десять слайдов вот этой презентации с официального сайта ПаскальАВС: http://pascalabc.net/downloads/Presentations/PascalABC.NET_2015.pdf

---

Ок, но для меня ближе си подобные!

---

А для меня ближе тот, на котором конкретную работу можно быстрее, короче и понятнее. Если, конечно, есть право выбора.

---

Поэтому С++ мне бывает близок крайне редко, потому что задачи системного плана стали очень редко заказывать.

---

И если быстрее всего что-то сделать в офисном бейсике (VBA), я пишу в нем, а не становлюсь в позу и с выражением снобизма на лице декламирую что-то вроде "Фи, Бейсик, импоссИбль!"

---

))учту на будущее

---

Ничего не поделаешь: кто платит, тот и музыку заказывает. И глупо провозглашать какие-то виртуальные ценности, когда дома надо чем-то семью кормить.

---

Согласен

Answer 2

Program Project1;

var
a:array[1..16] of integer;
i,p:integer;
begin
p:=1;
for i:=1 to 16 do
begin
p:=p*2;
a[ i ]:=p;
writeln(a[ i ])
end;
readln
end.