Vladimir_S |
29.09.2010 21:03 |
Цитата:
Сообщение от bboyedance
(Сообщение 398104)
Пользователь должен ввести любую фразу, из этой фразы надо убрать все буквы "а" а потом заменить их на заданную пользавателем букву. помогите решить вообще не получается.
|
Пожалуйста. Только учтите, что программа предназначена для работы только с ЛАТИНИЦЕЙ, и литера "а" тоже должна быть, соответственно, латинской. С кириллицей, во избежание проблем с кодировками, предпочитаю не связываться.
Код:
VAR
S:STRING;
L:Char;
i:INTEGER;
BEGIN
WriteLn('Enter the string:');
ReadLn(S);
For i:=1 to Length(S) do
If S[i]<>'a' then Write(S[i]);
WriteLn;
WriteLn('Enter the letter to replace "a":');
ReadLn(L);
For i:=1 to Length(S) do
If S[i]='a' then Write(L) else Write(S[i]);
WriteLn;
ReadLn;
END.
|