Mấy bạn làm giúp mình bài này với: While-Tổng CS của n Viết một chương trình tính tổng các số trong một số nguyên được nhập từ bàn phím.

0 bình luận về “Mấy bạn làm giúp mình bài này với: While-Tổng CS của n Viết một chương trình tính tổng các số trong một số nguyên được nhập từ bàn phím.”

1. Dưới ảnh nha

   

   Bình luận

2. Mình thấy dùng lệnh while đó khó qua nên mình dùng for…do

   Code: 

   program hoidap247;
   uses crt;
   var n,kq,i: integer;
       a: array [1..100] of integer;
   begin
   clrscr;
   kq:=0;
   write(‘Nhap tong cac so can tinh: ‘); readln(n);
   for i:=1 to n do
    begin
    write(‘Nhap so thu ‘,i,’: ‘); readln(a[i]);
    kq:=kq+a[i];
    end;
    writeln(‘Tong cua ‘,i,’ so vua nhap la: ‘,kq);
    readln
   end.

   Nếu ko đc thì mình sửa lại ạ 🙂

   nhớ cho mình 5 sao và ctlhn ạ 😀

   Bình luận