RO Questions
NICUDRO
a fost răspuns

De la tastatura se introduce un sir de caractere format din litere minuscule , reprezentat de variabila s.Determinati cite vocale se contin in sirul dat.
va rog !!!

Răspuns :

KIRILLLRO
program Sir;

var
  S: string;
  i, vocale: integer;
  //a, e, i, o, u
begin
  readln(S);
  vocale := 0;
  for i := 1 to length(s) do
   begin
    if pos('a', s, i)=i then
      vocale := vocale + 1
    else if pos('e', s, i)=i then
      vocale := vocale + 1
    else if pos('i', s, i)=i then
      vocale := vocale + 1
    else if pos('o', s, i)=i then
      vocale := vocale + 1
    else if pos('u', s, i)=i then
      vocale := vocale + 1;
  end;
  writeln('In : ' + s);
  writeln('Sunt ' + vocale + ' vocale');
end.
Vezi imaginea KIRILLL
Vezi imaginea KIRILLL
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Ne bucurăm dacă informațiile oferite v-au fost de ajutor. Pentru orice întrebare sau clarificare suplimentară, echipa noastră vă stă la dispoziție. Revenirea dumneavoastră ne onorează – nu uitați să ne salvați în lista de favorite!


RO Questions: Alte intrebari