Const n=?; {Кол-во элементов в массиве, написать число вместо "?"}
Var a,b:array[1..n] of integer;
x,k,i,j:integer;
Begin
writeln('Init massive:');
for i:=1 to n do
begin
readln(x); {а лучше написать <em>read(x);</em> и вводить числа через пробел одной строкой, красивее будет}
a[i]:=x;
end;
k:=n div 2;
if (n mod 2)<>0 then k:=k+1;
j:=1;
for i:=(k+1) to n do
begin
b[j]:=a[i];
j:=j+1;
end;
if (n mod 2)<>0 then
begin
b[k]:=a[k];
k:=k-1;
j:=j+1;
end;
for i:=1 to k do
begin
b[j]:=a[i];
j:=j+1;
end;
for i:=1 to n do write(b[i],' ');
End.
program lol;
var
a10:array[1..20] of integer;
i:integer;
begin
randomize;
for i:=1 to 20 do
begin
a10[i]:=random(50)-39;
writeln('Element #',i,': ',a10[i]);
end;
writeln;
for i:=1 to 20 do
begin
if a10[i] > 0 then a10[i]:=a10[i]*2;
if a10[i] < 0 then a10[i]:=0;
writeln('Element #',i,': ',a10[i]);
end;
readln;
end.
Подоходный налог составляет 13% от оклада.
Если оклады сотрудников записаны в столбце C (C2:C7), то для вычисления подоходного налога в ячейках столбца D нужно вставить формулы вида:
=C2*13%
Для вычисления значений в столбце E ("К выдаче", E2:E7) нужно вставить формулы вида:
=C2-D2
Разумеется, каждая из формул записывается один раз, а затем растягивается на нужное число строк.
В какой программе можно рисовать фигурами (wordpad)
есть 2003 ,2004и 2007(wordpard)
можно подключить пакет из другой программы(wordpard)
Ответ:
Предполагаю что это один из шаблонов WordArt
Объяснение:
с уплотнением в 1 пт или более стандартным для этого шаблона шрифтом кегель опционально