Напишите программу, которая заполняет массив из n элементов степенями числа 2, начиная с 2 1 до 2 n , в обратном порядке. входные данные входная строка содержит размер массива n . гарантируется, что 0 < n ≤ 30 . выходные данные программа должна вывести содержимое массива: n первых степеней числа 2 в обратном порядке (последний элемент должен быть равен 2 1 ). примеры входные данные 5 выходные данные 32 16 8 4 2

Program n1; var a: array[1..30] of integer; n,i: integer; function st(i: integer): integer; begin st: =1; for i: =1 to i do st: =st*2 end; begin readln(n); for i: =1 to n do a[i]: =st(i); for i: =n downto 1 do write(a[i],' '); end.

Ксожалению, составлено некорректно. 0< n≤30 допускает случай n=0. но тогда ряд значений должен оканчиваться 2 ⁰, а не 2¹, как указано. да и массив из n элементов при n=0 - нечто странное. поэтому принято решение считать значение n< 1 ошибкой. // pascalabc.net 3.3, сборка 1555 от 21.10.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger;   assert(n> 0,'нарушение: n< =0');   var a: =seqgen(n,2,i-> 2*i).reverse.toarray;   a.println end. примеры 5 32 16 8 4 2 20 1048576 524288 262144 131072 65536 32768 16384 8192 4096 2048 1024 512 256 128 64 32 16 8 4 2

1)

program z1;

var a: integer;

begin read(a);

if (a> 9) and (a< 100) then writeln(a, '-двузначное число')

else writeln(a, '-не является двузначным числом');

end.

2)

program z2;

var i: integer;

begin

for i: =1 to 9 do if (i mod 2 = 1) then writeln(i, ', ');

end.

2 способ:

program z2; var i: integer; begini: =1; while i< =9 do begin write(i, ', '); i: =i+2; end; end.

3)

program z3; var i,n: integer; s: real; a: array[1..100] of real; beginwrite('введите количество элементов массива: '); readln(n); write('введите элементы массива: '); for i: =1 to n do read(a[i]); i: =1; s: =0; while i< =n do begin s: =s+a[i]; i: =i+2; end; write('s=',s); end.

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