Код
Program A1;
var i,j:Integer;
st1,st2:string;
Begin
st2:='abcdefghijklmnopqrstuvwxyz';
readln(st1);
For i:=1 to length(st1) do begin
for j:=1 to length(st1) do begin
if st1[i]=st2[j] then st1[i]:=st2[j+2];
end;
end;
writeln(st1);
readln
end.
Полная версия: Задача на строки
Зашифровать текст по алгоритму: каждая буква являющееся i-й по алфавиту заменяется на (i+2)-ю букву, предпоследняя буква по алфавиту заменяется первой и т.д.У меня заменяет но не на (i+2)
Program A1;
var i,j:Integer;
st1,st2:string;
Begin
st2:='abcdefghijklmnopqrstuvwxyz';
readln(st1);
For i:=1 to length(st1) do begin
for j:=1 to length(st1) do begin
if st1[i]=st2[j] then st1[i]:=st2[j+2];
end;
end;
writeln(st1);
readln
end.
Program A1;
var i,j:Integer;
st1,st2:string;
Begin
st2:='abcdefghijklmnopqrstuvwxyz';
readln(st1);
For i:=1 to length(st1) do begin
for j:=1 to length(st1) do begin
if st1[i]=st2[j] then st1[i]:=st2[j+2];
end;
end;
writeln(st1);
readln
end.
uses crt;
var
s : string;
i : byte;
begin
clrscr;
s := 'abcdefghijklmnopqrstuvwxyz';
for i := 1 to length(s) do
case s[i] of
'a'..'x' : s[i] := chr(ord(s[i])+2);
'y' : s[i] := 'a';
'z' : s[i] := 'b';
end;
writeln(s);
readln;
end.
Для русского текста такое не пройдет.
APAL,
немного ловкости рук, и для русского еще и не такое пройдет
немного ловкости рук, и для русского еще и не такое пройдет
Цитата(volvo @ 20.02.2006 22:26) 
APAL,
немного ловкости рук, и для русского еще и не такое пройдет
Это конечно, но в условии не сказано для какого алфавита нужно делать, соответственно можно считать, что klem сразу сделал правильно.
Предидущий мой пост был ремаркой для автора, чтобы он потом не ругался, что у него что-то не работет...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.