Tính tổng của 100 số tự nhiên đầu tiên sử dụng câu lệnh while do hoặc fo do
Những câu hỏi liên quan
viết chương trình tính tích 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(sử dụng câu lệnh While..Do
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
i:=1;
while i<=n do
begin
s:=s*i;
i:=i+1;
end;
writeln(s:0:0);
readln;
end.
Đúng 0
Bình luận (1)
Câu 7: Nêu cú pháp câu lệnh lặp và cú pháp câu lệnh lặp với số lần chưa biết trước.Câu 8: Viết chương trình tính tổng của N số tự nhiên đầu tiên, với N là số tự nhiên được nhập từ bàn phím.Câu 9: Viết chương trình sử dụng lệnh lặp While..do để tính trung bình của n số thực x1, x2, x3,… xn. Các số n và x1, x2, x3,… xn được nhập vào từ bàn phím. giupa nha các hảo hán !
Đọc tiếp
Câu 7: Nêu cú pháp câu lệnh lặp và cú pháp câu lệnh lặp với số lần chưa biết trước.
Câu 8: Viết chương trình tính tổng của N số tự nhiên đầu tiên, với N là số tự nhiên được nhập từ bàn phím.
Câu 9: Viết chương trình sử dụng lệnh lặp While..do để tính trung bình của n số thực x1, x2, x3,… xn. Các số n và x1, x2, x3,… xn được nhập vào từ bàn phím.
giupa nha các hảo hán !
Câu 7: – Cú pháp câu lệnh lặp với số lần biết trước (for):
for biến := giá_trị_đầu to|downto giá_trị_cuối do câu_lệnh;
while điều_kiện do câu_lệnh;
Câu 8: Viết chương trình tính tổng N số tự nhiên đầu tiên
program TongNso; var N, i, Tong: integer; begin write('Nhap N: '); readln(N); Tong := 0; for i := 1 to N do Tong := Tong + i; writeln('Tong ', N, ' so tu nhien dau tien la: ', Tong); end.
Câu 9: Sử dụng lệnh lặp While..do để tính trung bình n số thực
program TinhTrungBinh; var n, i: integer; x, Tong: real; begin write('Nhap so luong n: '); readln(n); i := 1; Tong := 0; while i <= n do begin write('Nhap so thu ', i, ': '); readln(x); Tong := Tong + x; i := i + 1; end; writeln('Trung binh la: ', Tong / n:0:2); end.
Đúng 0
Bình luận (0)
Viết chương trình nhập 1 số nguyên dương n. Sau đó xuất ra màn hình tổng của n số tự nhiên đầu tiên (yêu cầu : sử dụng câu lệnh while....do)
program Tinh_Tong;
var n, s, i: integer;
begin
write('Nhap vao so nguyen duong n: ');
readln(n);
s := 0;
i := 1;
while i <= n do
begin
s := s + i;
i := i + 1;
end;
writeln('Tong cua ', n, ' so tu nhien dau tien la: ', s);
end.
Đúng 1
Bình luận (0)
viết chương trình sử dụng lệnh while....do để tính tổng của n số tự nhiên đầu tiên nhập vào từ bàn phím Giải hộ mình cảm ơn bạn..
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
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 100 do t:=t+i;
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
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
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 100 do t:=t+i;
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
b) Em hãy viết chương trình Tính tổng của 20 số tự nhiên đầu tiên bằng câu lệnh for … do và while… do ?
Sử dụng vòng lặp while...do:
program TinhTong20SoTNN;
var
i, sum: integer;
begin
i := 1;
sum := 0;
while i <= 20 do
begin
sum := sum + i;
i := i + 1;
end;
writeln('Tong cua 20 so tu nhien dau tien la: ', sum);
end.
Đúng 1
Bình luận (0)
Sử dụng vòng lặp for...do:
program TinhTong20SoTNN;
var
i, sum: integer;
begin
sum := 0;
for i := 1 to 20 do
sum := sum + i;
writeln('Tong cua 20 so tu nhien dau tien la: ', sum);
end.
Đúng 0
Bình luận (0)
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*
Program HOC24;
var i,n: integer;
t: longint;
begin
write('Nhap N: '); readln(n);
if n<=5 then write('So vua nhap chua lon hon 15') else
begin
t:=0; i:=10;
while i<=n do
begin
t:=t+i;
i:=i+1;
end;
end;
write('Tong la: ',t);
readln
end.
Đúng 1
Bình luận (0)
Viết chương trình tính tổng nghịch đảo N số tự nhiên S= 1+1/2+1/3+...+1/N với N được nhập từ bàn phím. (sử dụng câu lệnh lặp for...do hoặc while...do...). Giúp e với ạ
Program HOC24;
var i,n: integer;
S: real;
begin
write('Nhap N: '); readln(n);
s:=0;
for i:=1 to N do s:=s+1/i;
write('S= ',s:5:2);
readln
end.
Đúng 0
Bình luận (0)