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 ạ
2 câu trả lời
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.
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.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
