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

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

Задать свой вопрос
2 ответа
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.
Дарина Малиташева
спасибо!!!!!))))вы мне сегодня очень очень помогли!))
Выделить строчку и надавить шифт+цтрл-это в левом нижнем углу клавиатуры
Нелли
это не то:(
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт