👤
Guffy
a fost răspuns

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

Răspuns :

Angelicus
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.

Alte intrebari