Scrieţi un program pascal ce va rezolva următoarea problemă
Fie dat un şir format din caractere mari ale alfabetului latin. Scrieţi programul care numără cîte vocale conţine şirul dat
Răspunsuri la întrebare
Răspuns de
0
Program Vocale;
Var text:string;
i,n,nr:integer;
Begin
write('Introdu textul:');
readln(text);
n:=length(text);
nr:=0;
for i:= 1 to n do
if text[i] in ['A','E','I','O','U','a','e','i','o','u'] then nr:= nr +1;
writeln('sunt',' ',nr,' ','vocale');
readln;
END.
Var text:string;
i,n,nr:integer;
Begin
write('Introdu textul:');
readln(text);
n:=length(text);
nr:=0;
for i:= 1 to n do
if text[i] in ['A','E','I','O','U','a','e','i','o','u'] then nr:= nr +1;
writeln('sunt',' ',nr,' ','vocale');
readln;
END.
Alte întrebări interesante