👤

Elaboreazaun program care:substituie caracterul A prin caracterul *;

Răspuns :

Program Substituire;
 var S: String;
 j: integer;
 begin
 writeln ('Dati siruri de caractere');
 readln (S);
  for j:=1 to length (S) do
 if S[j]='A' then S[j]:='*';
 writeln (S);
 readln;
 end.