👤

Să se scrie o funcție recursivă care determină numărul de cifre pare într-un număr dar

Răspuns :

var

 a, b, k : integer;

begin

 k := 0;

 write('Enter numar: ');

 readln(a);

 while a <> 0 do

 begin

   b := a mod 10;

   if b mod 2 = 0 then inc(k);

   a := a div 10

 end;

 writeln('Numarul de cifre pare: ', k)  

end.

Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile disponibile v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de sprijin, nu ezitați să ne contactați. Vă așteptăm cu drag și data viitoare! Nu uitați să adăugați site-ul nostru la favorite pentru acces rapid.


Wix Learning: Alte intrebari