👤

Elaborati un program care:
radiaza din sir silaba 'TO'


Răspuns :

Program StergereTO;
var
S: String;
j: integer;

begin
writeln ('Introduceti textul');
readln (S);
for j:=1 to length (S) do
if (S[j]='T') and (S[j+1]='O') then j:=j+1 else write (S[j]);
readln;
end.