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

@REY-93 · Регистрация: 19.11.2013

Author24 — интернет-сервис помощи студентам

Зашифровать строку так, чтобы каждый символ не цифра был заменен цифрой. Цифры брать последовательно при замене, начиная с 0.
Заранее СПАСИБО! +1

@APALoff · 13.02.2014, 16:21

Т.е. расшифровывать строку не понадобиться...

Pascal

Var Ch : Char;
...
Function NextCifr : Char;
Begin
  If Ch='9' then Ch:='0' else Ch:=Succ(Ch);
  NextCifr:=Ch;
End;
...
Ch:='9';
For i:=1 to Length(St) do If not (St[i] in ['0'..'9']) then St[i]:=NextCifr;
...

@REY-93 · 13.02.2014, 16:28 **[ТС]**

Можно полностью код, а то даже это не могу сделать.

@APALoff · 13.02.2014, 16:36

Сообщение от REY-93

Можно полностью код, а то даже это не могу сделать.

Если Вам лениво изучить основы Паскаля, то мне лениво дописывать элементарные вещи...

@REY-93 · 13.02.2014, 16:43 **[ТС]**

Сообщение от APALoff

Если Вам лениво изучить основы Паскаля, то мне лениво дописывать элементарные вещи...

Я тока начал изучать Pascal, еще плохо ориентируюсь в коде. Допишите пожалуйста!!!

@REY-93 1 / 1 / 1 Регистрация: 19.11.2013 Сообщений: 40
		1
	Зашифровать строку так, чтобы каждый символ не цифра был заменен цифрой 13.02.2014, 11:07. Показов 1507. Ответов 4 Метки нет (Все метки) Зашифровать строку так, чтобы каждый символ не цифра был заменен цифрой. Цифры брать последовательно при замене, начиная с 0. Заранее СПАСИБО! +1 0

@REY-93 1 / 1 / 1 Регистрация: 19.11.2013 Сообщений: 40
	13.02.2014, 16:28 [ТС]	3
	Можно полностью код, а то даже это не могу сделать. 0

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	13.02.2014, 16:36	4
	Сообщение от REY-93 Можно полностью код, а то даже это не могу сделать. Если Вам лениво изучить основы Паскаля, то мне лениво дописывать элементарные вещи... 0

@REY-93 1 / 1 / 1 Регистрация: 19.11.2013 Сообщений: 40
	13.02.2014, 16:43 [ТС]	5
	Сообщение от APALoff Если Вам лениво изучить основы Паскаля, то мне лениво дописывать элементарные вещи... Я тока начал изучать Pascal, еще плохо ориентируюсь в коде. Допишите пожалуйста!!! 0

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

Решение