Ответ:
Объяснение: На компьютерном есть комьпьютер, возможно бумаги
Открываете Компьютер и там должно Дисковод DVD-RW (E:)
На него нажимаем, и там будет вся информация которая есть в диске.
1. Файл хранится в каталоге "россия"
С:/красная книга/россия/<span>Растения_степей.doc
2. Если из каталога "россия" подняться на уровень вверх, то попадем в каталог "Красная книга"
</span><span>С:/красная книга/<span>
3. </span>После создатия каталога "Евразия" в каталоге </span>С:/красная книга/, путь станет таким: С:/красная книга/Евразия
4. Если преместить каталог "россия" в каталог "Евразия", путь станет таким: С:/красная книга/Евразия/россия
5. А так как в каталоге "россия" хранится файл "Растения_степей.doc, то полное имя файла стало таким: С:/красная книга/Евразия/россия/Растения_степей.doc.
Program n1;
const n=20;
var a: array[1..n] of integer;
i,m: integer;
begin
writeln('исходный массив:');
for i:=1 to n do
begin
a[i]:=random(15);
write(a[i],' ');
end;
writeln;
write('введите позицию: ');
readln(m);
if (m>=1) and (m<=n) then
begin
a[m]:=10;
writeln('полученный массив:');
for i:=1 to n do write(a[i],' ');
end;
end.
Ответ:
Program var15_stroki;
Uses crt;
Var s:string;
a,i,endstr:integer;
Begin
clrscr;
Writeln('Введите строку');
Readln(s);
endstr:=Length(s);
for i:=1 to endstr do
if s[i]='-' then
Delete(s,i,1);
for a:=1 to endstr do
if s[a]=' ' then
Delete(s,a,1);
Writeln(s);
Readln;
End.
Объяснение: