Răspuns :
Răspuns:
Program P1;
var n,b: Integer;
begin
readln(n);
while ( n <> 0 ) do
begin
if n mod 10 mod 2 = 0 then
b:= b + n mod 10;
n:= n div 10;
end;
write( 'Suma este ' ,b);
end.
Vă mulțumim că ați vizitat platforma noastră dedicată Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, vă rugăm să ne contactați. Vă așteptăm cu drag și data viitoare! Nu uitați să adăugați site-ul nostru la lista de favorite!