Дана строка. написать программу,заменяющую в строке все буквы "s" ** буквы "с" помогите...

Question

Дана строка. написать программу,заменяющую в строке все буквы "s" на буквы "с"
помогите пожалуйста!!!в паскале)

Answer 1

Var T:string;
k:integer;
s,c:char;
begin
Writeln('Введите строку');
Readln(T);
Writeln('Введите буквы s и c');
Readln(c);
While not(Pos(s,T)=0) do
begin
k:=Pos(s,T);
T[k]:=c;
end;
Writeln('Изменённая строка -  ',T);
end.

Comments

спасибо!!!!!))))вы мне сегодня очень сильно помогли!))

Answer 2

Выделить строку и нажать шифт+цтрл-это в левом нижнем углу клавиатуры

Comments

это не то:(