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.
<span>1.Компьютер - это универсальное электронное программно управляемое устройство для работы с информацией </span>
<span>
1101₂
-111011₂
1100₂
х11011₂
101₂
10101110₂÷111₂</span>
Дистрибутив – это файл или файлы, предназначенные для установки какой-либо программы.