Программа и пример её работы - в прилагаемом файле.
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.
Касаються : Закрити Обрати Розгорнути Перейти Клацнути Переглянути Збільшити Зменшити Ввести Двічі Клацнути Натиснути Встановити Опрацювати і передати
Разделить монеты на пополам, взвесить, какая сторона легче ту опять разделить напополам и взвесить и повторять пока не найдете фальшивую монету