Uses crt;
var i,t: integer;
begin clrscr;
i:=0;
while(i<=120) do begin
i:=i+1;
t:=t+i;
end;
write(t);
readln;
end.
Đúng 3
Bình luận (0)
Bài 7. Câu lênh lặp
Các câu hỏi tương tự
câu 1:
a) Hãy mô tả thuật toán để tính tổng sau đây: T=1/1*4 + 1/2*5 + 1/3*6 +...+ 1/n*(n+3)
b) Sử dụng vòng lặp While... do, hãy viết chương trình tổng trên.
GIÚP EM MN ƠI, MAI EM NỘP R Ạ T-T.
Xoá sạch màn hình kết quả, sử dụng vòng lặp While . do hoặc For..do viết chương trình tính tổng sau: S=1/1*2+1/2*3+1/3*4+.....+1/n*(n+1)
N nhập từ bàn phím
Câu 22 Sử dụng vòng lặp While … do…Để viết chương trình tính tổng các số tự nhiên đầu tiên sao cho tổng đó nhỏ nhất và lớn hơn 500.
Viết chương trình tính tổng các số chẵn từ 1 tới n (với n được nhập từ bàn phím) bằng vòng lặp While..do *
MN
10 tháng 3 2022 lúc 14:27
Hãy viết chương trình Pascal tính tổng của 100 số tự nhiên liên tiếp.
Yêu cầu: Viết 2 chương trình sử dụng 2 dạng câu lệnh for...do và while...do
Viết chương trình sử dụng câu lệnh lặp While..do để in ra và tính tổng cho các dãy số sau:
N=1, 2, 4, 6, 8, …,50
M= 0, 4, 8, 12, 16, 20, 32
Viết chương trình tính tổng bằng lệnh lặp while..do
T=1+1/2+1/3+...+100
m.n ơi giúp mình với
Sử dụng vòng lặp for...do em hãy viết chương trình xuất ra màn hình cửu chương 4 (nâng cấp: chỉ cần nhập cửu chương 1 đến 9 sẽ ra cửu chương đó)
Viết chương trình tính tổng các số tự nhiên từ 10 đến N. Với số N là số tự nhiên bất kì do người sử dụng nhập va N > 15. * Lưu ý: Sử dụng câu lệnh lặp While...do*