👤
a fost răspuns

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

Răspuns :

GRIGORE2018ID

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 pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile oferite v-au fost de ajutor. Nu ezitați să ne contactați pentru orice întrebare sau dacă aveți nevoie de asistență suplimentară. Vă așteptăm cu drag data viitoare și nu uitați să ne adăugați la favorite!


ID Learners: Alte intrebari