В четырёхзначном числе определить сколько в нём нулевых цифр, использовать паскаль

Var

N, i, P, O, Z : Integer;

R : Real;

begin

Write ('n = ') ; ReadLn (N) ;

P : = 0; O : = 0; Z : = 0;

/ / для for / / для while / / для repeat

for i : = 1 to N do / / i : = 0; / / i : = 0;

/ / while i < N do / / repeat

begin / / begin / / Inc (i)

/ / Inc (i) ;

Write (i, ' число = ') ; ReadLn (R) ;

case sign (R) of

+1 : Inc (P) ;

-1 : Inc (O) ;

0 : Inc (Z) ;

end;

end; / / end; / / until i = N;

WriteLn ('Процент положительных чисел: ', P*100/N) ;

WriteLn ('Процент отрицательных чисел: ', O*100/N) ;

WriteLn (' Процент нулевых чисел: ', Z*100/N) ;

end.

тут даже больше