Question

Мәтінмен жұмыс жасайтын бағдарлама құрып берсеңіздер.

Answer 1

Program esep1234;

var s:string;

i,k:integer;

Begin

read(s); k:=0;

for i:=1 to length(s) do

if s[i]='0' then k:=k+1;

write('matinde 0 simvoly -',k);

End.