Question

1.Să se scrie un program care citește un șir de caractere și afișează lungimea lui.

2.Se citește o propoziție(șir de caractere) terminată cu punct.Să se determine câte vocale și consoane conține propoziția.

Answer 1

1)

Faci un string si folosesti functia "length(x)"

exemplu

uses crt;
var x:string;
begin

readln(x);
writeln(length(x));

end.



2)

var consoane, vocale, lungime, i:integer;

sir:string;

begin

readln(sir);

consoane:=0; vocale:=0;
lungime:=length(sir);
for i:=1 to lungime do
if pos(sir[i], 'aeiouAEIOU') > 0 then
inc(vocale)
else if (sir[i] in ['A'.'Z', 'a'.'z']) then
inc(consoane);
writeln('vocale: ', vocale);
writeln('consoane: ', consoane);
readln;

end.