1) D:\Программы\игры\Стратегии\Фараон
2) E:\география\фото
3) голливуд (E:\кино\фантастика\голливуд)
4) D:\лето\АВС\2011\фото\125.jpg
5) t*.bmp
6) treste.doc, else.dt, reade.docx, esse.doc, herte.docx
Ответ:
var j,i,k,n:integer;
m:array[1..1000] of integer;
begin
read(n,k);
//Ввод элементов массива
for i:=1 to n do
read(m[i]);
//Сортировка по возрастанию
for i:=1 to k do
for j:=i to k do
if m[j]<m[i] then swap(m[i],m[j]);
//Сортировка по убыванию
for i:=k+1 to n do
for j:=i to n do
if m[j]>m[i] then swap(m[i],m[j]);
//Вывод элементов массива
for i:=1 to n do
print(m[i]);
end.
= это сравнение
:= это оператор присваивания
1.File
2.Навести указатель мыши на содержимое папки
Var
a,b,c,s,k,y:real;
begin
Read(a,b,c);
s:=a+Sqrt(a+b*b*b)/c;
k:=Sqr(s*s)-Sqrt(Abs(a*b*c));
y:=a*s+Sqrt(k)+s/(b*c);
Writeln(y)
end.
Пример
-7 2 9
95.1778833805713