elaborati un program pascal in care veti subtitui litera t prin r
Răspunsuri la întrebare
Răspuns de
0
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.
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.
Alte întrebări interesante
Limba română,
8 ani în urmă
Matematică,
8 ani în urmă
Limba română,
8 ani în urmă
Matematică,
9 ani în urmă
Matematică,
9 ani în urmă
Matematică,
9 ani în urmă
Geografie,
9 ani în urmă