Program HOC24;
var i,n: integer;
s: real;
begin
n:=3; s:=0;
while n<=36 do
begin
s:=s+2/n;
n:=n+3;
end;
write('S= ',S:1:2);
readln
end.
Viết chương trình pascal tính tổng S=1+ 2+ 3 +... +n?
a,Bằng lệnh for...do
b,Bằng lệnh while...do
viết chương trình tính tổng s=1+1/3+1/5+....+1/2n-1 bằng câu lệnh for do và while do
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 sử dụng câu lệnh lặp for...do tính S=1+1/2^3+1/3^3+...+1/n^3
Dùng lệnh for .....to...do tính tổng sau S=1+2+3+...+100 Mn chỉ cần viết cú pháp câu lệnh của câu này thôi ạ 🥺
Viết chương trình in ra các ước số của N bằng câu lệnh For...do và While...do
Cứu mình!
Viết chương trình tính tích n số tự nhiên được nhập từ bàn phím (Sử dụng câu lệnh while... do)
Viết chương trình nhập vào một số n in ra màn hình tổng số n vừa nhập bằng câu lệnh lập While do
