Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
BotanikAziz
11.06.2020 11:03 •
Информатика
Написать на pascal шифр атбаш, не через массив! присвоив переменной с1: ='a b z', а переменной с2: ='z y b a';
Показать ответ
Ответ:
1234567890857
21.07.2020 20:21
Const
s1='';
s2='';
var
i,p:integer;
s:string;
begin
Write('Введите текст: '); Readln(s);
for i:=1 to Length(s) do
begin
p:=Pos(s[i],s1);
if p>0 then s[i]:=s2[p]
end;
Writeln('Результат: ',s)
end.
Тестовое решение:
Введите текст: HELLO, WORLD!
Результат: SVOOL, DLIOW!
Символы не вошедшие в шаблон замены, не шифруются.
0,0
(0 оценок)
Популярные вопросы: Информатика
NasTieZ31
19.12.2020 05:08
Write ( h = , h);Для h=66 на экране будет...
УмНиК4980
22.05.2021 00:06
Алфавит некоторого языка состоит из 16 символов. Каков информационный вес символа этого алфавита? 1) 16 битов 2) 5 битов 3) 1 бит 4) 4 бита...
yagodka343
23.04.2023 09:35
C++ Одномерные массивы. Задача 1.1Дан одномерный массив, состоящий из N вещественных элементов. Найти произведение элементов массива, расположенных между максимальным...
Оксана0990
14.07.2020 09:20
Боря,витя,гриша и егор встретились на всероссийской олимпиаде по информатике. приехали из разных городов: москвы, омска, санкт-петербурга и кирова. известно, что боря...
pycya2006
31.12.2021 10:27
УМАЛЯЮЮ Я В СЛЕЗАХ вправа 536...
Hikena
19.05.2020 16:50
Яке значення має вивчення минулого для сьогодення?...
ania47
28.11.2021 05:15
Задача. Я задумала трехзначное число. Оно состоит из разных цифр, записанных в порядке возрастания. Все слова в его названии начинаются с одной буквы. Какое число я...
EpicKsushaGames
03.09.2020 23:12
на столе стоят три гири массами 10 15 30 г что можно сказать о внутренней энергии гирь одинаковая она или разная?...
mama791
03.09.2020 23:12
Неліктен Ордабасы ел бірлігінің нышаны болды НАДО ЭТО ЭССЕ 300 СЛОВ МОЖНО И МЕНЬШЕ...
55964643
10.02.2023 21:35
Дан выпуклый девятиугольник A1A2...A9 . Сколько общих точек с прямой A3A8 имеет отрезок A2A4?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
s1='';
s2='';
var
i,p:integer;
s:string;
begin
Write('Введите текст: '); Readln(s);
for i:=1 to Length(s) do
begin
p:=Pos(s[i],s1);
if p>0 then s[i]:=s2[p]
end;
Writeln('Результат: ',s)
end.
Тестовое решение:
Введите текст: HELLO, WORLD!
Результат: SVOOL, DLIOW!
Символы не вошедшие в шаблон замены, не шифруются.