Viết chương trình nhập vào từ bàn phím xâu kí tự s có độ dài không quá 100. Hãy cho biết có bao nhiêu chữ số thập phân xuất hiện trong xâu s. Thông bá

0 bình luận về “Viết chương trình nhập vào từ bàn phím xâu kí tự s có độ dài không quá 100. Hãy cho biết có bao nhiêu chữ số thập phân xuất hiện trong xâu s. Thông bá”

1. BÀI LÀM 

   Chương trình:

   program ABC;

   uses crt;

   var

   s: string[100];

   i, dem: integer;

   Begin

   clrscr;

   write(‘Nhap xau vao:’); readln(s); dem:= 0;

   for i:= 1 to length(s) do

   if (‘0′<=s[i]) and(s[i]<=’9’) then dem:=dem+l;

   Writeln(‘Trong xau s co ‘»dem,’ chu so thap phan’);

   readln;

   End.

   Bạn ấn ctrl F9 để chạy chương trình

   Bình luận