Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
1 / 1 / 0
Регистрация: 27.12.2011
Сообщений: 41

Зашифровать строку, поместив вначале все символы, с четных позиций строки, а затем все символы с нечетных позиций

13.03.2012, 16:57. Показов 1944. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дана строка-предложение. Зашифровать ее, поместив вначале все символы, расположенные на четных позициях строки, а затем, в обратном порядке, все символы, расположенные на нечетных позициях (например, строка "Программа" превратиться в "ргамамроП")
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
13.03.2012, 16:57
Ответы с готовыми решениями:

Строки. Зашифровать строку, поместив вначале символы, расположенные на четных позициях, а затем, в обратном порядке, на нечетных
2. Дана строка-предложение. Зашифровать ее, поместив вначале все символы, расположенные на четных позициях строки, а затем, в обратном...

Зашифровать строку, поместив вначале все символы, расположенные на четных местах
2. Дана строка-предложение. Зашифровать ее, поместив вначале все символы, расположенные на четных местах, а затем, в обратном порядке, все...

Зашифровать строку, поместив вначале все символы, расположенные на четных местах
Кто нибуть может помочь с парой програмок простеньких (На Паскале)? :) За полный код буду очень благодарен! :) Только пожалуйста на...

1
любитель покушать
 Аватар для Севак
687 / 641 / 248
Регистрация: 25.09.2011
Сообщений: 1,313
13.03.2012, 18:37
Лучший ответ Сообщение было отмечено :DeD как решение

Решение

eD,
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
uses crt;
var
a: array[1..256] of char;
b,c: array[1..256] of char;
k,i,j,z: integer;
s: string;
begin
k:=1;
z:=1;
read(s);
 
for i:=1 to length(s) do begin
 
if i mod 2 = 0 then begin
b[k]:=s[i];
write(b[k]);
end;
 
if i mod 2 = 1 then begin
c[z]:=s[i];
inc(z);
end;
end;
for j:=z-1 downto 1 do begin
write(c[j]);
end;
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
13.03.2012, 18:37
Помогаю со студенческими работами здесь

Дана строка-предложение. Зашифровать ее, поместив вначале все символы, расположенные на четных позициях строки...
Добрый вечер! Срочно нужно решить задачку: Дана строка-предложение. Зашифровать ее, поместив вначале все символы, расположенные на четных...

Зашифровать строку, поместив сначала все символы, расположенные на четных местах, а затем, в обратном порядке
Зашифровать строку, поместив сначала все символы, расположенные на четных местах, а затем, в обратном порядке, все символы,...

Зашифровать строку, поместив вначале все символы
13. Дана строка-предложение. Зашифровать ее, поместив вначале все символы, расположенные на четных позициях строки, а затем, в обратном...

Зашифровать строку поместив в начале символы на четных местах, а затем на нечетных в обратном порядке
Есть задача:Дана строка-предложение. Зашифровать ее, поместив вначале все символы, расположенные на четных местах, а затем, в обратном...

Зашифровать строку, поместив в начале все символы, расположенные на четных местах
Дана -строка предложение,Зашифровать ее , поместив в начале все символы, расположенные на четных местах, а затем, в обратном порядке. все...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа
Maks 26.03.2026
Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .
Команды формы и диалоговое окно
Maks 26.03.2026
1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT?
DevAlt 26.03.2026
Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при создании или изменении элементов справочника
Maks 24.03.2026
Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .
модель ЗдравоСохранения 5. Меньше увольнений- больше дохода!
anaschu 24.03.2026
Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .
Midnight Chicago Blues
kumehtar 24.03.2026
Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru