ответить на во теста:
На сколько основных (Primary) разделов может быть разбит жёсткий диск, если на нём есть дополнительные (Extended) разделы?
1. 2
2. 1
3. 4
4. 3
Какая программа (внешняя команда MS-DOS) предназначена для разбиения жёстких дисков на разделы?
1. format.com
2. sys.com
3. command.com
4. fdisk.exe
Какой символ шаблона обозначает несколько или ни одного любого допустимого символа в имени или расширении файла или папки?
1. .
2. ?
3. :
4. *
Какой символ отделяет имя файла от расширения при указании названия файла?
1. .
2. /
3. \
4. :
Какой из разделов предназначен для разбиения на логические диски и не имеет своего собственного буквенного именования?
1. Основной (Primary)
2.Вторичный (Secondary)
3.Дополнительный (Extended)
4.Запасной
Сколько может быть дополнительных (Extended) разделов на одном жёстком диске?
1. 4
2. 3
3. 2
4. 1
Какой символ обозначают текущую папку на логическом диске?
1. /
2. .
3. :
4. \
Какой символ часто пишется при указании параметров командной строки?
1. .
2. :
3. /
4. \
Из скольки символов может состоять имя файла в файловых системах FAT-12 и FAT-16?
1. 7
2. 8
3. 11
4. 9
Какой из разделов предназначен для установки операционной системы?
1.Вторичный (Secondary)
2.Основной (Primary)
3.Запасной
4.Дополнительный (Extended)
Какой символ обозначают корневую папку на логическом диске?
1. /
2. \
3. .
4. :
Какие файлы используются для задания параметров работы MS-DOS?
1. io.sys и msdos.sys
2. command.com и sys.com
3.autoexec.bat и config.sys
4.format.com и fdisk.exe
Первый этап подготовки жёсткого диска для установки операционной системы, в случае если он новый (нет данных и не повреждён)?
1. Форматирование
2.Проверка диска
3.Резервное копирование
4.Разбиение на разделы
Какой символ следует за буквенным обозначением логического диска?
1. \
2. /
3. .
4. :
Работу с какой файловой системой не поддерживает ни одна из версий MS-DOS?
1. NTFS
2. FAT16
3.FAT12
4.FAT32
Какой символ шаблона обозначает один или ни одного любого допустимого символа в имени или расширении файла или папки?
1. ?
2. .
3. *
4. :
Какой(ие) символ(ы) обозначают родительскую, по отношению к текущей (кроме корневой папки), папку на логическом диске?
1. :
2. \
3. .
4. ..

Program one_a;
uses crt;
var s1,s2:string;
    p,a:integer;
begin
     readln(s1);
     readln(s2);
     p:=pos(s2,s1);
     if p=0 then writeln('no')
     else writeln('pos:',p);
end.

Program one_b;
uses crt;
var s1,s2:string;
    p,a:integer;
begin
     readln(s1);
     readln(s2);
     p:=pos(s2,s1);
     if p=0 then writeln('no')
     else
     begin
     a:=length(s2);
     delete(s1,p,a);
     writeln(s1);
     end;
end.

Program one_c;
uses crt;
var s1,s2:string;
    p:integer;
begin
     readln(s1);
     readln(s2);
     s2:=' '+s2+' ';
     readln(p);
     insert(s2,s1,p);
     writeln(s1);
end.

Program two_a;
uses crt;
var s1,s2,s3:string;
begin
     s1:='край озер ';
     writeln(s1);
     s2:='лесов и рек';
     writeln(s2);
     insert(s2,s1,length(s1)+1);
     writeln(s1);
end.

Program two_b;
uses crt;
var s1,s2,s3:string;
    p,a:integer;
begin
     s1:='Я учусь в школе';
     writeln(s1);
     s2:='в школе';
     s3:='в 10-м классе';
     p:=pos(s2,s1);
     a:=length(s2);
     delete(s1,p,a);
     insert(s3,s1,p+1);
     writeln(s1);
end.

Program three_a;
uses crt;
var s1,s2:string;
    p,a:integer;
begin
     s1:='моя родина Беларусь';
     writeln(s1);
     s2:='Беларусь';
     p:=pos(s2,s1);
     a:=length(s2);
     delete(s1,p,a);
     s1:=s2+' '+s1;
     writeln(s1);
end.

Program three_b;
uses crt;
var s1,s2:string;
    p,a:integer;
begin
     s1:='люблю цябе, мой родны кут';
     writeln(s1);
     s2:='мой родны кут';
     p:=pos(s2,s1);
     a:=length(s2);
     delete(s1,p,a);
     delete(s1,length(s2)-2,2);
     s1:=s2+','+s1;
     writeln(s1);
end.

Program four_a;
uses crt;
var s1,s2,s3:string;
    p,k,i,l,m:integer;
begin
     s1:='Минск столица Беларуси';
     writeln(s1);
     k:=0;
     for i:=1 to length(s1) do
         if copy(s1,i,1)=' ' then
         begin
              inc(k);
              l:=i;
         end;
     p:=pos(' ',s1);
     s2:=copy(s1,1,p-1);
     s3:=copy(s1,l+1,length(s1)-l+1);
     k:=length(s2);
     m:=length(s3);
     delete(s1,1,k);
     delete(s1,l-p+2,m);
     s1:=s3+s1+s2;
     writeln(s1);
end.

Program four_b;
uses crt;
var s1,s2,s3:string;
    p,k,i,l,m:integer;
begin
     s1:='Беларусь ты моя синеокая';
     writeln(s1);
     k:=0;
     for i:=1 to length(s1) do
         if copy(s1,i,1)=' ' then
         begin
              inc(k);
              l:=i;
         end;
     p:=pos(' ',s1);
     s2:=copy(s1,1,p-1);
     s3:=copy(s1,l+1,length(s1)-l+1);
     k:=length(s2);
     m:=length(s3);
     delete(s1,1,k);
     delete(s1,l-p+2,m);
     s1:=s3+s1+s2;
     writeln(s1);
end.

Program five_a;
uses crt;
var s1:string;
    x:integer;
begin
     readln(s1);
     for x:=1 to length(s1) do
         if copy(s1,x,1)=' ' then
         begin
              delete(s1,x,1);
              insert('_',s1,x);
         end;
     writeln(s1);
end.

Program five_b;
uses crt;
var s1:string;
    s2:char;
    x,y:integer;
begin
     readln(s1);
     y:=0;
     for x:=1 to length(s1) do
         begin
              s2:=s1[x];
              if (s2<>' ') and ((ord(s2)<48) or (ord(s2)>57)) then inc(y);
         end;
     writeln(y);
end.

Program five_c;
uses crt;
var s1:string;
    s2:char;
    x,y:integer;
begin
     readln(s1);
     y:=0;
     for x:=1 to length(s1) do
         begin
              s2:=s1[x];
              if (ord(s2)<=90) and (ord(s2)>=65) then inc(y);
              if (ord(s2)>=192) and (ord(s2)<=223) then inc(y);
         end;
     writeln(y);
end.

Это просто, если знать курс
Dim R As Integer, D As Integer, E As Integer, X As String
Const Euro = 45,38, Dollar = 32,68 ' Здесь вводишь реальные курсы
Cls
Print "Введите сумму, в конце напишите код валюты - RUR, rur, USD, usd, EUR, eur"
Input X
If Ucase (Right (X, 3)) = "RUR" Then
     R = Val (Trim (Left (X, Len(X) - 3)))
     D = R / Dollar
     Print Str (D) & "долларов"
     E = R / Euro
     Print Str (E) & "евро"
ElseIf Ucase (Right (X, 3)) = "USD" Then
     D = Val (Trim (Left (X, Len(X) - 3)))
     R = D * Dollar
     Print Str (R) & "рублей"
     E = R / Euro
     Print Str (E) & "евро"
ElseIf Ucase (Right (X, 3)) = "EUR" Then
     E = Val (Trim (Left (X, Len(X) - 3)))
     R = E * Euro
     Print Str (R) & "рублей"
     D = R / Dollar
     Print Str (D) & "долларов"
Else
     Print "Введите правильное название валюты в любом регистре!"
End If

Программа сама проверяет, в какой валюте ты ввел число, и выдает результат в двух других валютах.