Question

ce trebuie sa corectez?sa sterg sau sa adaug 30 pcte dau

Answer 1

Problema trebuia sa arate in felu urmator:

Program Pn;
s:string;
i,n:integer;
begin
Writeln('Dati sirul');
readln(s);
for i:=1 to length(s)
begin
if (s[i]='M') and (s[i+1]='E') then s[i]:='L';
end;
Writeln('Dupa schimbare:');
Writeln(s);
readln;
end.