Viết chương trình nhập vào 1 số có 4 chữ số (nhập sai thì nhập lại).Kiểm tra xem số đó có tổng là bao nhiêu, ghi kết quả ra màn hình

0 bình luận về “Viết chương trình nhập vào 1 số có 4 chữ số (nhập sai thì nhập lại).Kiểm tra xem số đó có tổng là bao nhiêu, ghi kết quả ra màn hình”

1. program so4chuso;

   uses crt;

   var n:longint;

         s:integer;

   begin

   clrscr;

   repeat

    write(‘Nhap so: ‘);   readln(n);

    if (n<1000) or (n>9999) then writeln(‘So nay phai co 4 chu so. Nhap lai!’);

   until (n>=1000) and (n<=9999);

   s:=0;

   while n>0 do

    begin

     s:=s+n mod 10;

     n:=n div 10;

    end;

   write(‘Tong cac chu so cua so nay la: ‘,s);

   readln

   end.

    

   Bình luận

2. uses crt;

   var n,s: longint;

   begin
   clrscr;
   repeat

   clrscr;

   write(‘Nhap 1 so co 4 chu so: ‘);   readln(n);
   if (n<1000) or (n>9999) then write (‘dieu kien so nay phai co 4 chu so’);
   until (n>=1000) and (n<=9999);
   while n>0 do
   begin
   s:=s+n mod 10;
   n:=n div 10;
   end;
   write(‘Tong cac chu so la: ‘,s);
   readln;
   end.

   Bình luận