Viết chương trình nhập vào một xâu kí tự. Hãy cho biết có bn chữ số 5 xuất hiện trong xâu

0 bình luận về “Viết chương trình nhập vào một xâu kí tự. Hãy cho biết có bn chữ số 5 xuất hiện trong xâu”

1. uses crt;
   var s:string;
       i,dem:byte;
   begin
      clrscr;
      write(‘Nhap xau: ‘); readln(s);
      for i:=1 to length(s) do
      if s[i]=’5′ then inc(dem);
      write(‘Co ‘,dem,’ chu so 5 trong xau’);
      readln
   end.

   Bình luận

2. program oken;
   uses crt;
   var s:string;
       i,dem:byte;
   begin
           clrscr;
           write(‘nhap xau: ‘); readln(s);
           for i:=1 to length(s) do
                   if s[i]=’5′ then
                           dem:=dem+1;
           writeln(‘co ‘,dem,’ chu so 5 trong xau’);
           readln;
   end.

   Bình luận