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

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
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

Phía sau một cô gái
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.

  

Các câu hỏi tương tự
Gia Kỳ
Xem chi tiết
Thư Uyên
Xem chi tiết
Lê Đăng Khôi
Xem chi tiết
Phan Thị Ka
Xem chi tiết
Bảo Trâm
Xem chi tiết
Bảo Trâm
Xem chi tiết
Trần Đức Huy
Xem chi tiết
thanh mai
Xem chi tiết
Nguyễn Gia Huy
Xem chi tiết