KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
Viết ct tính T=1.2+2.3+3.4+…+n(n+1) sử dụng lệnh for…do
By Everleigh
Viết ct tính T=1.2+2.3+3.4+…+n(n+1)
sử dụng lệnh for…do
Mã Code :
var n,i,tich:integer; begin clrscr; tich:=1; write(‘Nhap n:’);readln(n); for i:=1 to n do tich:=tich*i; write(‘Tich so tu 1 den ‘,n,’ la:’,tich); readln; end
var n,i,tich:integer; begin clrscr; tich:=1; write(‘Nhap n:’);readln(n); for i:=1 to n do tich:=tich*i; write(‘Tich so tu 1 den ‘,n,’ la:’,tich); readln; end
Mã Code :
var n,i,tich:integer;
begin
clrscr;
tich:=1;
write(‘Nhap n:’);readln(n);
for i:=1 to n do tich:=tich*i;
write(‘Tich so tu 1 den ‘,n,’ la:’,tich);
readln;
end
var n,i,tich:integer;
begin
clrscr;
tich:=1;
write(‘Nhap n:’);readln(n);
for i:=1 to n do tich:=tich*i;
write(‘Tich so tu 1 den ‘,n,’ la:’,tich);
readln;
end
mình xin ctlhn