👤

elaborati un program pascal in care veti subtitui litera t prin r

Răspuns :

Program tema:
Var s:string;
      i:integer;
Begin
writeln('Introduceti sirul de caractere: ');
readln(s);
for i=1 to Length(s) do
begin
if (s[i]='t') then
s[i]='r';
end;
writeln('Noul sir este: ',s);
End.