1 - 3; 2 - 1; 3 - 5; 4-2; 5-4
Объяснение:
1 - 3
Тут сразу видно, что код бесполезный, как и все остальные 4 =D
Ну в общем переменной buf ты присваиваешь первый элемент массива, на место первого ставишь второй и на место второго - buf... Возвращаешь первый короче на место второго.
2 - 1
Тут у тебя есть какая-то строка x, длина которой измеряется встроенной функцией len. И выполняется цикл for, что для каждого символа этой строки при условии, что если i-ый элемент больше какой-то переменной max, то происходит "перезапись" переменной, что нам найти максимальное значения массива.
3 - 5
Тут грубо говоря аналогично максимуму, только находится минимум и выводится индекс методом index
4 - 2
Тут в самом начале уже стоит условие, что если i-ый элемент делится без остатка на 2 (т.е. четный) то идут манипуляции с перестановкой =D
5 - 4
Тут элементарно. Цикл прогоняют по количеству символов массива y, чтоб потом вызывать по индексу его элементы.
var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
for i := 1 to N do
p:=p*x;
writeln(x,' в степени ',n,' равно ',p );
end.
2. Для цикла While
var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
i:=1;
while i<=n do begin
p:=p*x;
i:=i+1;
end;
writeln(x,' в степени ',n,' равно ',p );
end.
3. Для цикла Repeat
var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
i:=1;
repeat
p:=p*x;
i:=i+1;
until i>n;
writeln(x,' в степени ',n,' равно ',p );
end.