Question

Под цифрой 12.заранее большое❤❤❤❤❤❤❤❤❤❤❤❤

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.

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.