Срочно!!!Под цифрой 12.Заранее спасибо большое❤❤❤❤❤❤❤❤❤❤❤❤

Question

Срочно!!!Под цифрой 12.Заранее спасибо большое❤❤❤❤❤❤❤❤❤❤❤❤

---

Comments

pascal&

---

??

---

Да

---

Очень нужно!!!!!

Answer 1

var a, s,n: integer;

begin

s:= 0;

n:=0;

readln(a);

while a<>0 do begin

if (a mod 2 = 0)  then

n:=n+1;

s := s + a;  

readln(a);

end;

writeln(s,n);

end.

Comments

Спасибо большое)

Answer 2

var

f,s, i: integer;

begin

s:=0;

i:=0;

readln (f);

while f<> 0 do

begin

i:=i+1;

if (f mod 2=0) then

s:= s+f;

readln (f);

end;

writeln (s);

writeln (i);

end.