ogurhik
17.12.2020 18:07

Петя нашел в интернете шифр кодового слова. Шифр получается так: 1. Выбирается кодовое слово, например «хорошо».
2. Убираются копии букв в слове из п. 1, получается «хорш».
3. Затем строится новый алфавит таким образом, что полученное в п. 2 слово записывается в начало нового алфавита, а затем новый алфавит дополняется обычным (из которого исключаются буквы из слова(п. 2)).
а б в г д е ё ж з и й к л м н о п р с т у ф х ц ч ш щ ъ ы ь э ю я
х о р ш а б в г д е ё ж з и й к л м н п с т у ф ц ч щ ъ ы ь э ю я
4. Чтобы закодировать текст, буквы старого алфавита в тексте заменяются на те, что стоят под ними (пробелы и знаки препинания не изменяются). А чтобы раскодировать, буквы нового алфавита в тексте заменяются на те, что стоят над ними.
Например, используя шифрование словом «хорошо», мы можем из фразы «шифр кодового слова» получить «четм жкакркшк нзкрх».
Петя закодировал с данного шифра строку, в итоге получилась строка
«лантэша б мцкшйоя оярнкойсзъб жё».
Для кодирования данной строки Петя выбрал кодовое слово «коммивояжёр»
Восстановите исходную строку и в ответе запишите слова исходной строки через пробел без кавычек и запятых.
БЫСТРЕЕ ОСТАЛОСЬ 10 МИНУТ

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
valnov24200105oxnmv8
08.03.2021 12:35
Var  question :
 array [1..3] of string;
 awns,mark: integer; 
begin   
 writeln('Вопрос 1'+ #10 +'1 - вариант ответа'+ #10 +'2 - вариант ответа'+ #10 +'3 - вариант ответа');   
 readln(awns);   
 // проверяем ответ 
 if awns = 1 then mark := mark + 1;   
 writeln('Вопрос 2'+ #10 +'1 - вариант ответа'+ #10 +'2 - вариант ответа'+ #10 +'3 - вариант ответа');   
 readln(awns);   
 // проверяем ответ   
 if awns = 2 then mark := mark + 1;   
 writeln('Вопрос 3'+ #10 +'1 - вариант ответа'+ #10 +'2 - вариант ответа'+ #10 +'3 - вариант ответа');   
 readln(awns);   
 // проверяем ответ   
 if awns = 3 then mark := mark + 1; 
 // выводим результат   
 writeln(' Вы ответили на ' + mark + ' вопросов из 3'); 
end.
0,0(0 оценок)
Ответ:
Мамаева2007
22.12.2021 09:41
В обоих случаях вы не указали какие числа, я использовал промежуток от -64000 до 64000
1)var a,b:array[1..101] of longint;i,n,k:integer;beginfor i:=1 to 100 do a[i]:=random(128000)-64000;for i:=1 to 100 do beginif a[i]>0 then begin b[i]:=a[i];inc(k);end;if a[i]<0 then begin while a[i]>0 doa[i]:=a[i+1];end;end;for i:=1 to k doif b[i]<>0 thenwriteln(b[i]);end.
2)var a:array[1..50] of integer;i,k:integer;beginfor i:=1 to 50 do a[i]:=random(64000)+1;//for i:=1 to 50 do if a[i] mod 3 =0 then writeln(a[i]); если хотите посмотреть на эти числа убрать //for i:=1 to 50 do if a[i] mod 3 =0 then k:=k+a[i];write(k);end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота