Question

[Tiên Võ]

Viết chương trình nhập vào một số n in ra màn hình tổng số n vừa nhập bằng câu lệnh lập While do

Answer 1

[Phía sau một cô gái]

var n, sum : integer;

begin

     write('Nhap n: ');

     readln(n);

     sum := 0;

     while n > 0 do

     begin

          sum := sum + n;

          n := n - 1;

     end;

     writeln('Tong la: ', sum);

end.