Program HOC24;
var i: integer;
s: real;
begin
s:=0;
for i:=1 to 100 do
s:=s+i/100;
write('S=',s:1:2);
readln
end.
Đúng 0
Bình luận (0)
Bài 8. Lặp với số lần chưa biết trước
Các câu hỏi tương tự
Viết chương trình tính tổng S=\(\frac{10}{11}\)+\(\frac{11}{12}\)+\(\frac{12}{13}\)...+\(\frac{100}{101}\)
Viết chương trình tính tổng T=1+1/2+1/3+...+1/100
Viết chương trình tìm số N . Sao cho tổng từ 1 đến N bé hơn hoặc bằng 100 . T = 1+ 2+3 ........+ ? = 100
10 tháng 3 2022 lúc 19:23
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 tính tổng sau S=1+2+3+... đến khi tổng lớn hơn hoặc bằng 100, dùng câu lệnh While..do.
Viết chương trình tìm n để S= 1+2+3+...+n < hoặc = 100
a)Viết chương trình nhập vào 1 số nguyên N < 100. Nếu N là số chẵn thì in ra màn hình các số chẵn từ 0 đến Nb)Viết chương trình nhập vào 1 số nguyên N < 100. Nếu N là số lẻ thì in ra màn hình các số lẻ từ 1 đến N
Xem chi tiết
Viết chương trình tính tổng sau T=3+1/2+1/3+...+1/100 Mình cần gấp ạ
hãy đọc đoạn chương trình sau:
s:=1;i:=1
while s<100 do
begin s:=s*i; i:=i+2; end;
sau khi thực hiện xong, kết quả s bằng:.......