Объяснение:
Работает с любым числом.
var x,y,z,mx,mn:integer;
begin
readln (x);
while x>0 do begin
y:=x mod 10;
x:=x div 10;
if y=2 then
z+=1;
end;
writeln(z);
end.
