Nhập xâu và in ra tổng các chữ số nguyên có trong xâu.(pascal) Vd 1ee45 Kq 1+4+5=10

0 bình luận về “Nhập xâu và in ra tổng các chữ số nguyên có trong xâu.(pascal) Vd 1ee45 Kq 1+4+5=10”

1. program tongchuso;

   uses crt;

   var st:string;

         s:integer;

         i,so:byte;

   begin

   clrscr;

   write(‘Nhap xau: ‘);   readln(st);

   s:=0;

   for i:=1 to length(st) do

    if st[i] in [‘1’..’9′] then

     begin

       val(st[i],so);

       s:=s+so;

     end;

   write(‘Tong cac chu so trong xau la: ‘,s);

   readln

   end.

   Bình luận

2. uses crt;
   var s:string;
       tong:integer;
       i,so:byte;
   BEGIN
           clrscr;
           write(‘Nhap xau:’); readln(s);
           tong:=0;
           for i:=1 to length(s) do
                   if s[i] in [‘1’..’9′] then
                   begin
                           val(s[i],so);
                           tong:=tong+so;
                   end;
           write(‘Tong:’,tong);
           readln
   END.

   Mình chạy thử r nha, chương trình cực kì chính xác và ngắn gọn

   Bình luận