Viết chương trình nhập vào từ bàn phím 1 xâu s có độ dài không quá 250 kí tự. Hãy cho biết trong xâu s có bao nhiêu ‘1’?

0 bình luận về “Viết chương trình nhập vào từ bàn phím 1 xâu s có độ dài không quá 250 kí tự. Hãy cho biết trong xâu s có bao nhiêu ‘1’?”

1. var s: string[250];

          i, d: byte;

   Begin

      Write(‘nhap xau: ‘); readln(s);

      D:=0;

      For i:=1 to length(s) do

            If s[i]=’1′ then d:=d+1;

      Write(‘co ‘, d, ‘ ki tu “1”‘);

      Readln

   End.

   Bình luận

2. uses crt;

   var s: string;

   d,i: byte;

   begin

   clrscr;

   write (‘nhap xau: ‘);  readln (s);

   for i:=1 to length(s) do if s[i]=’1′ then d:=d+1;

   write (‘trong xau co ‘,d,’ ki tu “1” ‘);

   readln;

   end.

   Bình luận