Question

alcatuiti un program pascal care sa substituie litera m prin t.DAU 100 PUNCTE

Answer 1

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]='m') then
s[i]='t';
end;
writeln('Noul sir este: ',s);
End.