Informatică, întrebare adresată de aaa124, 8 ani în urmă

Se da n numar natural si n numere intregi.Sa se determine suma numerelor pare.DAU COROANA.


carajaslavik814: in pascal vrei?
aaa124: da
carajaslavik814: ok atunci astept coronita :*
aaa124: pai cum sa iti dau coroana daca nu mi-ai dat rezolvarea?
carajaslavik814: dar acum?
aaa124: ???
carajaslavik814: macar apreciaza respunsul daca tot nu dai coroana :)
aaa124: pai nush cum acm incerc
aaa124: daca mi-ai putea spune te rog unde trb sa merg ca sa iti dau coroana deoarece credeam ca o sa apara pe raspuns undeva dar nu vad nmk

Răspunsuri la întrebare

Răspuns de carajaslavik814
1

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.

Alte întrebări interesante