Question

elaboreaza un program care substituie caracterul ,A" prin caracterul ,,*"

Answer 1

program P1;
var s: string;
       i: integer;
begin
write ('s='); readln (s);
for i:=1 to length (s) do
if s[i]='A' then S[I]:='*';
writeln ('sirul modificat este:',s);
end.