Сформируйте и выведите целочисленный массив содержащий степени двойки от первой до 16
Сформируйте и выведите целочисленный массив содержащий степени двойки от первой до 16
Гость
Ответ(ы) на вопрос:
Гость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.
ГостьДа.... если судить по предыдущем решению, "в школу снова не хочу!" )))
// 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 - это была просто дань требованию условия зачем-то создать массив и вывести его значения.
Не нашли ответ?
Похожие вопросы