Pascal

[Олес]

Реализовать на языке Turbo Pascal следующую задачу: выяснить, есть ли в слове X буква "k", и, если есть, то замените все буквы "а" в этом слове на "с".Напишите в Turbo Pascal код программы. помогите, пожалуйста)

 

[Vladimir_S]

Реализовать на языке 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.

 

[Олес]

спасибо большое)