👤
a fost răspuns

Se citeste un numar natural n. Sa se afiseze suma si produsul cifrelor pare (sau impare).
Am nevoie in pascal.

Răspuns :

program sumaCifre;

var n, spare, simp, cif:integer;

begin

 write('n='); read(n);

 spare:=0; simp:=0;

 while (n>0) do

   begin

     cif:=n mod 10;

     if (cif mod 2=0) then spare:=spare+cif

     else simp:=simp+cif;

     n:=n div 10;

   end;

 writeln('suma cifrelor pare= ',spare);

 writeln('suma cifrelor impare= ', simp);

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