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

1 жауап

+4 дауыс
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.
...