neon

Xoá sạch màn hình kết quả, sử dụng vòng lặp For .. do hoặc While ..do viết chương trình tính tổng sau:

S=1.2 + 2.3+ 3.4 + ...+ n.(n+1) (n nhập từ bàn phím)

Minh Lệ
7 tháng 3 2023 lúc 20:30

For..do

Program HOC24;

uses crt;

var i,n: integer;

S: longint;

begin

clrscr;

write('Nhap N: '); readln(n);

s:=0;

for i:=1 to n do s:=s+i*(i+1);

write('S=',S);

readln

end.

Bình luận (0)
Minh Lệ
7 tháng 3 2023 lúc 21:22

while..do

Program HOC24;

uses crt;

var i,n: integer;

S: longint;

begin

clrscr;

write('Nhap N: '); readln(n);

i:=0; s:=0;

while i<n do

begin

i:=i+1;

s:=s+i*(i+1);

end;

write('S=',S);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
Khánh Hoàng
Xem chi tiết
Nguyễn Huỳnh Khôi Nguyên
Xem chi tiết
Trường Nguyễn
Xem chi tiết
Khánh Hoàng
Xem chi tiết
Tiến Đạt Huỳnh
Xem chi tiết
Võ Tấn Trường Phạm
Xem chi tiết
Khánh Hoàng
Xem chi tiết
Sóc Trăng Chi nhánh
Xem chi tiết
Vy Tường_8a2
Xem chi tiết