Question

Дано п’ятизначне число а. Визначте кількість двійок, що входять до складу цього числа.

Answer 1

Ответ:

Объяснение:

Работает с любым числом.

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.