👤
1VALERIAEZ
a fost răspuns

DAU COROANA !!!
Se consideră procedura care numără câte silabe to sunt într-un șir.

Procedure Test(a:string; var b: byte);
var i: byte;
begin
b:=0;
for i:=1 to length(a)-1 do
if(a[i]='t') and (a[i+1]='o') then inc(b);
end;
Scrieți un program care calculează câte silabe sol sunt într-un șir X, utilizând un subprogram funție( vă conduceți de procedura Test dată mai sus). Șirul se va introduce de la tastatură.

Răspuns :

FACEBOOKAUGUSTIEZ
Program Pn;
var
a:string; b:byte;
procedure test(a:string; var b:byte);
var i:byte;
begin
b:=0;
for i:=1 to length(a)-1 do
begin
if (a[i]='s') and (a[i+1]='o') and (a[i+2]='l') then inc(b);
end;
Writeln('Sunt ',b,' silabe "sol" ');
end;
begin
Writeln('Dati sirul');
readln(a);
test(a,b);
readln;
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