👤
MARINA001EZ
a fost răspuns

Elaborează un program în PASCAL utilizând funcția pentru a înlocui dintr-un șir de caractere, caracterele 'ma' cu caracterele 'ti'.
Vă rog mult să mă ajutați

Răspuns :

LOZANALEXEZ
var
  s:string;

function schimba(s:string):string;
var
  i:integer;
  x:string;
begin
  i:=1;
  while (i<length(s)) do
    if (s[i]+s[i+1]<>'ma') then
    begin
      x:=x+s[i];
      i:=i+1;
    end
 else
    begin
      x:=x+'ti';
      i:=i+2;
    end;
  if (s[length(s)-1]+s[length(s)]<>'ma')    then x:=x+s[length(s)];
  schimba:=x;
end;

begin
  read(s);
  s:=schimba(s);
  writeln(s);
end.
Vă mulțumim că ați vizitat platforma noastră dedicată Informatică. Sperăm că informațiile oferite v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Așteptăm cu nerăbdare să vă revedem și nu uitați să ne salvați în lista de favorite!


Ez Askings: Alte intrebari