Цитата:
Сообщение от Олес
Реализовать на языке Turbo Pascal следующую задачу: выяснить, есть ли в слове X буква "k", и, если есть, то замените все буквы "а" в этом слове на "с".Напишите в Turbo Pascal код программы. помогите, пожалуйста)
|
Легко. Правда, предупреждаю: работает ТОЛЬКО с латиницей, никакой кириллицы.
Код:
Var
X,X1:String;
b:boolean;
i:byte;
Begin
Writeln('Enter the word:');
Readln(X);
b:=false;
i:=0;
Repeat
Inc(i);
if X[i]='k' then b:=true;
Until b or (i=Length(X));
if b then
begin
X1:='';
for i:=1 to Length(X) do
if X[i]='a' then X1:=X1+'c' else X1:=X1+X[i];
X:=X1;
end;
Writeln(X);
Readln
End.