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

1 ответ

Посмотреть ответы

DevAdmin

1720

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.

Хороший ответ

16 января 2023 21:41

Остались вопросы?

Найти нужный

Еще вопросы по категории Информатика

Между населёнными пунктами А, В, С, D, Е построены дороги, протяжённость которых (в километрах) приведена в таблице: Определите длину кратчайшего пути... Int* arr = (int*)malloc(N * sizeof(int)); выручайте, спросили что такое (int*)... Сделать диагностику "информатика + я =?"... Что такое мегамир , макромир ,микромир?... 1)Приведите 2-3 примера слов-омонимов, выражающих различные понятия. 2)Привведите 2-3 примера слов-синонимов,выражающих одно понятие....

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

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