rovect2.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 21 行

program vector2;
var v:array[1..100] of integer;
    n,s,p,d,i,j:integer;
begin
write('n=');readln(n);
repeat
i:=i+1;
v[i]:=n mod 10 ;
n :=n div 10;
until  n=0;
for j:=1 to i do
begin
if v[j] mod 2=0 then s:=s+v[j];
if v[j] mod 2<>0 then p:=p+1;
if v[j]=0 then inc(d);
end;
write(s);
write(p);
write(d);
end.