Question

Ajutor, va rog, imi trebuie urgent ..
De la tastatura se introduce 3 siruri de caractere, litere minuscule. Scrieti cite un program pentru ai determina:
a) numarul vocalelor din fiecare sir;
b)sirul cu cel mai mare nr de vocale;
c) nr. consoanelor din fiecare sir;
d) sirul cu cel mai mic nr de consoane;

Answer 1

Program Brainly;
VAR s1,s2,s3:string; v1,v2,v3,c1,c2,c3,max,min,i:integer;
Begin
Readln(s1);
Readln(s2);
Readln(s3);
for i:=1 to length(s1) do
Begin
case s1[i] of
'a' : v1:=v1+1;
'e' : v1:=v1+1;
'i' : v1:=v1+1;
'u' : v1:=v1+1;
'o' : v1:=v1+1;
else c1:=c1+1;
end;
Writeln('Primul sir contine: ',v1,' vocale si ',c1,' consoane');
for i:=1 to length(s2) do
Begin
case s2[i] of
'a' : v2:=v2+1;
'e' : v2:=v2+1;
'i' : v2:=v2+1;
'u' : v2:=v2+1;
'o' : v2:=v2+1;
else c2:=c2+1;
end;
Writeln('Al doilea sir contine: ',v2,' vocale si ',c2,' consoane');
for i:=1 to length(s3) do
Begin
case s3[i] of
'a' : v3:=v3+1;
'e' : v3:=v3+1;
'i' : v3:=v3+1;
'u' : v3:=v3+1;
'o' : v3:=v3+1;
else c3:=c3+1;
end;
Writeln('Al treilea sir contine: ',v3,' vocale si ',c3,' consoane');
if v1 > v2 then max:= v1 else max:=v2;
if v3 > max then max:=v3;
Writeln(max);
if c1 < c2 then min:=c1 else min:=c2;
if c3 < min then min:=c3;
Writeln(min);
Readln;
END.


Sper ca ai inteles, daca ai intrebari, scrie in comentarii.