var i, n, a, p: integer;
begin
writeln('Vvedi N: ');
readln(n);
writeln('Vvedi A: ');
readln(a);
p := 1;
for i := 0 to sqr(n) do
begin
p := p * (a - n);
n := n * 2;
end;
writeln(p);
readln;
end.
Решение смотри во вложении.
Program gt;
var a:array[1..100]of integer;
i:integer;
begin
for i:=1 to 10 do
begin
read(a[i]);
end;
for i:=1 to 10 do
begin
if(a[i] mod 2=0)or(i mod 2=0)then write(a[i],' ');
end;
Находился здесь:
<span>D:\Видео\Фильмы\Комедии\Отечественные
Поднялся на три уровня вверх:
</span>D:\Видео
<span>
Перешел к просмотру каталога выпускной:
</span>D:\Видео\Выпускной
И запустил файл Прощание.mpg:
D:\Видео\Выпускной\Прощание.mpg - это ответ
<span>
</span>