[stalkerok_2009]

я сделал тут второе

Код:

program zadanie2;
var 
a,j: longint; 
s: string; 
begin 
read(a); 
j:=0; 
While a>0 do begin 
if a mod 10=0 then inc(j); 
a:=a div 10; 
end; 
Writeln(j); 
Readln; 
End.

но оно слишком маленькое,а мне нужно больше описания