Даны массив (A1, А2, ..., A17). Получить новый массив, состоящий из A1, A3, ..., A17, A2, A4, ..., A1 Вообщем если не понятно, т
Сергей1959москва
Var A,B:array[1..17] of integer;
i:byte;
begin
for i:=1 to 17 do
read(a[i]);
for i:=1 to 17 do
if odd(i) then
begin
b[i]:=a[i];
write(b[i],' ');
end;
for i:=1 to 17 do
if not odd(i) then
begin
b[i]:=a[i];
write(b[i],' ');
end;
end.
Площадь поверхности правильной пирамиды через апофему
<span><span>L - апофема (опущенный перпендикуляр OC из вершины С, на ребро основания АВ)
</span><span>P - периметр основания
</span><span>So - площадь основания
var
L, P, So: real;
begin
readln(L, P, So);
writeln('S = ', 0.5 * P * L + So);
<span>end.</span></span></span>
В прошлом году у меня было похожее задание - 15,8,6