Написать программу,определяющую сумму n-значных чисел,содержащих только нечетные цифры. Паскаль

[tweeker]

Написать программу,определяющую сумму n-значных чисел,содержащих только нечетные цифры.Определить также,сколько четных цифр в найденной сумме.
P.S. Сделайте по-простому пожалуйсто,я только начинающий программист.

[Stilet]

Так достаточно просто:

sum:=0; n:=4; c:=1;
for i:=1111 to 9999 do begin
 sum1:=0; j:=i; k:=0;
 while j>0 do begin 
  if ((j mod 10) mod 2 = 0) then begin sum1:=sum1+(j mod 10); inc(k); end; 
  j:=j div 10; 
 end;
 if k=4 then sum:=sum+sum1;
end;

Разобраться сумеешь?