👤
1Valeria
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 :

Facebookaugusti
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.

Alte intrebari