Bài 7. Câu lênh lặp

TV

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

PG
18 tháng 2 2023 lúc 19:19

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.

  
Bình luận (0)

Các câu hỏi tương tự
GK
Xem chi tiết
TU
Xem chi tiết
LK
Xem chi tiết
PK
Xem chi tiết
BT
Xem chi tiết
BT
Xem chi tiết
TH
Xem chi tiết
TM
Xem chi tiết
NH
Xem chi tiết