viết chương trình tính tổng tính sau bằng lệnh lặp với số lần chưa biết trước while…do;
a) A = 5*6*7*8*…*40
b) B= 15+16+17+…+170
c) C = (-20)+(-19)+(-18)+…+50
d) D= 1*1/2+1/3+1/4+..+1/n
với n là số tự nhiên đc nhập từ bàn phím
????giúp mình với ạ sáng mai 7h m nộp bài rồi
???? hứa vote 5????-❤️ ạ
k lấy bài trên mạng – xin chân thành cảm ơn ạ
a)
program nhaovo;
uses crt;
var T:integer;
i:integer;
begin clrscr;
T:=1;
for i:=5 to 40 do
T:=T*i;
write(‘Tich tu 5 toi 40 la: ‘,T);
readln;
end.
b)
program hotdot;
uses crt;
var S:integer;
i:integer;
begin clrscr;
S:=0;
for i:=15 to 170 do
S:=S+i;
write(‘Tong tu 15 toi 170 la: ‘,S);
readln;
end.
d) Var i,n,D: integer; Begin
Chrson; Roadln(n)
D:=1
For i:= 2 to n do
D=D=1 l i
Bvriteln(D)
End.