25 ! расшифруйте слово! в ответе необходимо написать слово заглавными буквами. шифрование слова происходило так. буквы слова пронумеровали, начиная с первой номерами 1, 2, 3 и так далее. затем выбрали две буквы. выписали номера букв и поменяли эти буквы местами. на следующем шаге выбрали другие две буквы и проделали с ними те же действия. далее продолжали делать те же действия, пока не получили зашифрованное слово. на каждой строке расположена пара номеров букв, которые меняли друг с другом. далее зашифрованное слово. 7 11 6 1 2 4 2 1 4 2 7 3 9 5 7 6 11 9 11 10 нтягфесарои

ответ: СТЕНОГРАФИЯ

НТЯГФЕСАРОИ

НТЯГФЕСАРИО (11 10)

НТЯГФЕСАОИР (11 9)

НТЯГФСЕАОИР (7 6)

НТЯГОСЕАФИР (9 5)

НТЕГОСЯАФИР (7 3)

НГЕТОСЯАФИР (4 2)

ГНЕТОСЯАФИР (2 1)

ГТЕНОСЯАФИР (2 4)

СТЕНОГЯАФИР (6 1)

СТЕНОГРАФИЯ (7 11)

Даю пример на c#, авось придумать код на паскале, т.к сам онли в c#:
int perva, pervb, pervv;
int vtora, vtorb, vtorv;
Console.WriteLine("Введите длину первого ящика");
perva = Convert.ToInt32(Console.ReadLine());
Console.WriteLine("Введите ширину первого ящика");
pervb = Convert.ToInt32(Console.ReadLine());
Console.WriteLine("Введите высоту первого ящика");
pervv = Convert.ToInt32(Console.ReadLine());
Console.WriteLine("Введите длину второго ящика");
vtora = Convert.ToInt32(Console.ReadLine());
Console.WriteLine("Введите ширину второго ящика");
vtorb = Convert.ToInt32(Console.ReadLine());
Console.WriteLine("Введите высоту второго ящика");
vtorv = Convert.ToInt32(Console.ReadLine());
int result;
int result2;
result = perva * pervb * pervv;
result2 = vtora * vtorb * vtorv;
obratno:
if (result > result2)
{
int anotherresult;
anotherresult = result2 * 2;
goto obratno;
}
if (result < result2)
{
int anotherresult2;
anotherresult2 = result * 2;
goto obratno;
}

1.

program z1;

var a:array [1..10] of integer;

i,k:integer;

begin

write ('Введите элементы массива через пробел и нажмите Enter ');

for i:=1 to 10 do read (a[i]);

write ('Массив: ');

for i:=1 to 10 do write (a[i],'  ');

writeln;

write ('Номера элементов больше 5: ');

for i:=1 to 10 do if a[i] > 5 then

begin

write (i,'  ');

k:=k+1

end;

writeln;

writeln ('Элементов больше 5: ',k)

end.

2.

program z2;

var s:string;

begin

readln (s);

while pos('о',s)<>0 do delete(s,pos('о',s),1);

writeln(s)

end.

Объяснение:

Смотри картинки

2. Программа удаляет только строчные русские о