var S,i,n: integer;
begin
S:=101;
while S<=150 do
begin
writeln ('nhap n'); readln(n);
S:=101;
for i:= 1 to n do S:=S+i;
end;
writeln ('tong la ',S);
readln;
end.
(mình nghĩ vậy, nếu sai cho mình xin lỗi)
Tính tổng S=1+2+3+....+n+.....+ cho đến khi S>1000. Điều kiện nào sao đây cho vòng lặp While-do là đúg:
A. While S< 1000 do
B. While S> 1000 do
C. While S<= 1000 do
D. While S>= 1000 do
Viết chương trình tổng S=1+2+...+n cho đến khi S > 500 đếm số lần lặp
Cho đoạn chương trình S:=0 ; n:=1; While.......do Begin S:= S+n ; n:=n+1 ; End ; Tính tổng S=1+2+3....+100 , điều kiện nào sau đây cần điền vào chỗ 3 chấm giữa câu lệnh while ...do ? A. n>=100 B n> 100 C n<100 D n<=100
Giúp em
Sử dụng cấu trúc lặp for do viết phương trình tính S=1² +2²+3²+...+n² và S=1+3+5+...+(2n-1) với n nguyên dương được nhập vào từ bàn phím.
Giúp mik cần trong tuần nay cả tuần sau
1) dùng lệnh lặp While...do đếm các số nguyên tố từ 1 đến n (n là số nhập từ bàn phím)
2) dùng lệnh lặp While...do để tính tổng các số nguyên tố được nhập tuè bàn phím.
mn giải hộ mình với ạ. mình xin cảm ơn ạ
Viết chương trình :
Nhập vào giá trị n (n>2) . Tính tổng các giá trị chẵn trong phạm vi từ 2 đến n
Sử dụng câu lệnh while-do
1Viết chương trình nhập vào số nguyên dương N. Tính tổng các số là bội 3 và 5. In kết quả ra màn hình. 2. Viết chương trình tính tổng S=1+13+15+1N+...+ cho đến khi 1N
trong cửa hàng có các loại sơn : 16kg ,17kg,21kg. 1 người khách cần mua 185kg sơn.viết chương trình tính và cho biết cần bán cho người khách bao nhiêu thùng mỗi loại (bao nhiêu thùng 16kg,17kg,21kg) để không phải bàn lẻ thùng nào
giúp mình cái ,giáo viên bảo sử dụng câu lệnh lặp for..to..do(chắc là loại câu lệnh lặp for to do lồng nha :v)
