Шифрование данных

@xDefx · Регистрация: 22.12.2011

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

Зашифровать текст так, чтобы каждый символ-цифра был заменен его порядковым номером в таблице ASCII (ord (s)).

код:

Pascal

PROGRAM SHIFR;
USES crt;
VAR
 s, ss, sn: string;
 v, i: integer;
BEGIN
 Write ( 's=' );
 Readln ( s );
 sn:='';
 for i:=1 to length(s) do
BEGIN
 v:= ord ( s[i] );
 str ( v, ss );
 sn:= sn+ss+'';
END;
 Write ( 's=', sn );
 readkey
END.

Тут он заменяет и буквы тоже, как сделать чтобы он только заменял цифры а буквы не трогал

@~~Апострофф~~ · 13.01.2012, 07:59

Это

Pascal

for i:=1 to length(s) do
 BEGIN
 v:= ord ( s[i] );
 str ( v, ss );
 sn:= sn+ss+'';
 END;

заменить на это

Pascal

for i:=1 to length(s) do
 BEGIN
 if (s[i]>='0')and (s[i]<='9')then begin
  v:= ord ( s[i] );
  str ( v, ss );
 end else ss:=s[i];
 sn:= sn+ss+'';
 END;

	13.01.2012, 07:59