Для проведения расследования детективу необходимо прочитать зашифрованное сообщение, перехваченное от одного из участников банды
преступников. Сообщение написано с помощью шифра простой замены (без использования частот встречаемости). К сообщению прилагается ключ, но преступник не успел дописать его, поэтому не все замены указаны. Помогите детективу расшифровать сообщение. Сообщение: «ПДХРЖЕЛТГПЛУЪДПГАУХУБЖЪБЛОЦВДЩУДАОЙЛТГЪХГЩРЛТУВМД»
Заменим то, что знаем. Я буду конечные буквы писать маленькими. ПДХьгЕЛТГПЛУЪДПГмУХУБгЪБЛсЦВДчУДмсяЛТГЪХГчьЛТУВкД Очевидно, что первое слово - "деньги", то есть Д->П, Е->Д, Н->Х, И->Е деньги ЛТГдЛУЪеПГмУнУБгЪБЛсЦВечУемсяЛТГЪнГчьЛТУВке Выделим слово ЛсЦВечУемся, которое, видимо, значит "встречаемся". В->Л, Т->Ц, Р->В, А->У деньги вТГдваЪеПГманаБгЪБ встречаемся вТГЪнГчьвТарке Выделим слово нГчь, которое, очевидно, означает "ночь". О->Г деньги вТодваЪеПоманаБгЪБ встречаемся вТоЪночьвТарке Похоже, что фраза вТоЪночьвТарке означает "в полночь в парке" П->Т, Л->Ъ деньги в подвале Пома на БглБ встречаемся в полночь в парке Д->П, У->Б Теперь всё ясно: деньги в подвале дома на углу встречаемся в полночь в парке Всё!
в качестве аргумента sep в метод print передаётся строка/символ, который служит разделителем в выходной строке между выводимыми на экран значениями. sep сокр. Separator - разделитель. В данном случае в качестве символа-разделителя передаётся пробел
Program n1; const n=10; var a: array[1..n] of real; sum,k: real; i: integer; begin sum:=0; k:=0; for i:=1 to n do begin readln(a[i]); if a[i]>0 then begin k:=k+1; sum:=sum+a[i]; end; end; write(sum/k); end.