Технический форум

Цитата:

Сообщение от Олес (Сообщение 2385450)

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