Ввести строку, состоящую из латинских букв. Заменить каждую букву строки на букву, следующую за ней по алфавиту (например, a-b, b-c, z – a).

@Yrec · Регистрация: 14.12.2011

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

@WebMax 2.0 · 14.12.2011, 13:21

Pascal

uses crt;
var
i:byte;
s,s1:string;
a:set of 'A'..'z';
begin
    a:=['A'..'z'];
    Write('Ââåäèòå ñòðîêó: ');readln(s);
    For i:=1 to length(s) do
    if s[i] in a then begin
    if s[i]='z' then s1:=s1+'a' else
    if s[i]='Z' then s1:=s1+'A' else
    s1:=s1+Chr(Ord(s[i])+0001);
    end
    else s1:=s1+s[i];
    Write('Íîâàÿ ñòðîêà: ');
    Writeln(s1);
end.

@Yrec · 15.12.2011, 12:39 **[ТС]**

спасибо тебе хороший человек

@Yrec 0 / 0 / 0 Регистрация: 14.12.2011 Сообщений: 10
		1
	Ввести строку, состоящую из латинских букв. Заменить каждую букву строки на букву, следующую за ней по алфавиту (например, a-b, b-c, z – a). 14.12.2011, 11:19. Показов 3977. Ответов 2 Метки нет (Все метки) Ввести строку, состоящую из латинских букв. Заменить каждую букву строки на букву, следующую за ней по алфавиту (например, a-b, b-c, z – a). 0

@Yrec 0 / 0 / 0 Регистрация: 14.12.2011 Сообщений: 10
	15.12.2011, 12:39 [ТС]	3
	спасибо тебе хороший человек 0

Ввести строку, состоящую из латинских букв. Заменить каждую букву строки на букву, следующую за ней по алфавиту (например, a-b, b-c, z – a).

Решение