uses crt;
var s,n:longint;
begin
clrscr;
s:=0;
n:=1;
while s<=10000 do
begin
s:=s+n;
inc(n);
end;
writeln(s);
writeln('So n nho nhat sao cho tong S>10000 la: ',n);
readln;
end.
viết chương trình với thuật toán sau:
Bước 1. S←0,n←0
Bước 2. Nếu S ≤ 1000 thi chuyển tới bước 3; ngược lại ( S>1000) chuyển tới bước 4 Bước 3. n←n+1; S←S+n; và quay lại bước 2
Bước 4. In kết quả: S và n là số tự nhiên nhỏ nhất sao cho S > 1000. Kết thúc thuật toán.
Có thể dùng câu lệnh while do để viết chương trình ''Tìm số n để tổng S=1+2+3....+n nhỏ nhất lớn hơn 0. In ra giá trị n và S=?
Viết chương trình tính tổng sau:
S= 1+3+5+...+(2n+1)
Với n được nhập vào từ bàn phím; In kết quả ra màn hình.
Viết chương trình tính và đưa ra tổng sau: S = 1 + 1/3 + 1/5 +1/7 +….+1/N+…cho đến khi S > 3,15.
Bài này làm sao thế mấy anh, chị ơi!
Giúp em với!
Viết chương trình tính tổng sau
S=1+2+3+...+n sao cho tổng S nhỏ nhất >500 ( với n là số nguyên được nhập từ bàn phím)
Lưu ý: viết chương trình sử dụng câu lệnh while .. do, for..do và biến mảng.
Viết chương trình tính tổng sau:
S= 2+4+6+...+2n
Với n được nhập vào từ bàn phím; In kết quả ra màn hình.
Viết chương trình tính tổng: S=1+1/2+1/3+...+1/n
Biết n là số tự nhiên được nhập từ bàn phím
Mấy bạn ơi hãy giúp mìk với
1.Sử dụng biến mảng viết chương trình Pascal nhập N số nguyên từ bàn phím và in ra màn hình số lớn nhất và nhỏ nhất .
2.Viết chương trình Pascal tính tổng của N số tự nhiên đầu tiên với N số tự nhiên được nhập từ bàn phím .
3.Viết chương trình Pascal nhập N số tự nhiên , in ra màn hình số nhỏ nhất để tổng đầu tiên lớn hơn 1000 .
4.Viết chương trình Pascal nhập vào 2 số nguyên , in ra màn hình kết quả sắp xếp 2 số nguyên vừa nhập theo thứ tự tăng dần .
5.Sử dụng biến mảng viết chương trình Pascal nhập N số nguyên từ bàn phím và in ra màn hình số nhỏ nhất.
Giải nhanh giùm e nha .
Viết chương trình nhập vào 1 mảng số thực gồm n phẩn tử (1<n<=50). Tìm phần tử lớn nhất, nhỏ nhất và in ra giá trị của nó trên màn hình
Tính giá trung bình của các phần tử có trong mảng
giúp vs
