Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  a
Language: PASCAL
Code:
program HelloWorld;
var s: string;
   i,d: integer;
begin
    write('nhap vao xau s ');readln(s);
    d:=0; 
    for i:=1 to length(s) do
      if s[i]/s[i] = 1 then d:= d+1;
    writeln('so chu so trong s la ',d,);
    readln
end.          
          
Comments: