Ответ:
Если не было информации то человек и другие живые существа ничего не узнали о своем мире , а также человек перестал быть любопытным и т.д
1. Поменяны прописные и строчные буквы: закодированные слова начинаются со строчных букв, а остальные прописные, хотя в исходных словах все наоборот.
2. Длина слов сохранилась, как было три пятибуквенных имени и три шестибуквенных, так и осталось, следовательно одни символы были заменены на другие.
3. В имени Филипп две последние буквы совпадают и среди закодированных слов есть одно шестибуквенное <span>тХКХОО, в котором совпадают две последние буквы. Также есть имя Максим, в котором первая и последняя буквы совпадают, а среди закодированных есть шестибуквенное </span><span>лЮЙЯХЛ. На этом основании предполагаем, что произведена подмена одной буквы другой, причем </span> подмена постоянная, т.е. конкретная буква всегда подменяется одной и той же.
4. Мы нашли два шестибуквенных имени, следовательно третье (<span>Густав) закодировано как </span><span><span>цСЯРЮБ.
</span>5. Среди пятибуквенных имен два начинаются на одну и ту же букву (А), а среди закодированных имен есть два, начинающиеся на "ю", тогда оставшееся </span><span>бЮДХЛ - это имя </span><span>Вадим.
6. В слове </span><span>юМРНМ совпадают вторая и последняя буквы. В имени </span><span>Антон
они также совпадают, следовательно оставшееся </span><span>юПР╦Л - это </span><span>Артём.
<em><u>Окончательно:</u></em>
</span><span>юПР╦Л - </span><span><span><span>Артём
</span>юМРНМ - Антон
бЮДХЛ - Вадим
лЮЙЯХЛ - Максим
цСЯРЮБ - Густав
тХКХОО</span> - Филипп</span>
На 4 не знаю
сейчас еще скину одно фото жди ))
1) Var a:integer;
Begin
Writeln('Введите число');
Readln(a);
If (a mod 2 = 0) then writeln('Введённое число чётное.')
Else writeln('Введённое число чётное');<span>
End.
2) </span>var A,A1,B,B1,C,C1:integer;
Begin
a:=4;b:=1;c:=7;
Writeln('Дан треугольник со сторонами A=4 B=1 C=7');
Writeln('Введите стороны треугольника A,B,C');
Readln(A1,B1,C1);
If (A=A1) and (B=B1) and (C=C1) then writeln('треугольники равны')
Else writeln('треугольники не равны');<span>
End.
3)</span>var x,y:integer;
Begin
write('Введите первый промежуток: '); readln(x);
write('Введите второй промежуток: '); readln(y);
if x<y then write('Отдаляется')
else write('Приближается');
<span>end.</span>
--------------------------------------Вроде так--------------------------------------