Tính tổng từ 1 đến 10 bằng lệnh lặp for......do.
Những câu hỏi liên quan
1Viết chương trình nhập số tự nhiên N từ bàn phím (N>0), tính giai thừa của N (N!)2Viết câu lệnh lặp for … do tính tổng các số lẻ trong phạm vi từ 1 đến 203Viết câu lệnh lặp for … do tính tổng các số chẵn trong phạm vi từ 1 đến 20
Xem chi tiết
Bài 1:
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
writeln(n,'!=',s:0:0);
readln;
end.
Đúng 1
Bình luận (0)
1).
program oken;
uses crt;
var n,i: integer;
gt: qword;
begin
write('nhap n: '): readln(n);
gt:=1;
for i:=1 to n do gt:=gt*i;
writeln('N!=',gt);
readln;
end.
2).
program tongcacsole;
uses crt;
var t,i:longint;
begin
clrscr;
for i:=1 to 203 do
if i mod 2 = 1 then t:=t+i;
write(t);
end.
3).
program tongcacsochan;
uses crt;
var t,i:longint;
begin
clrscr;
for i:=1 to 20 do
if i mod 2 = 0 then t:=t+i;
write(t);
end.
Đúng 0
Bình luận (0)
hãy viết chương trình sử dụng lệnh lặp while-do, và for...to...do để tính tổng các số tự nhiên từ 1 đến 10.
* Sử dụng For ... do
Var i,s:integer;
Begin
For i:=1 to 10 do
s:=s+i;
Write('Tong la ',s);
Readln;
End.
* Sử dụng While ... do
Var i,s:integer;
Begin
i:=1;
While i<=10 do
Begin
s:=s+i;
i:=i+1;
End;
Write('tong la ',s);
Readln;
End.
Đúng 0
Bình luận (0)
Viết câu lệnh lặp for … do tính tổng các số lẻ trong phạm vi từ 1 đến 20.
T:=0;
for i:= 1 to 20 do
If i mod 2 = 1 then tong:=i + T;
Đúng 1
Bình luận (0)
*Cách khác
for i:=1 to n do
if i mod 2<>0 then t:=t+i;
Đúng 1
Bình luận (0)
Viết câu lệnh lặp for … do tính tổng các số chẵn trong phạm vi từ 1 đến 20.
begin
A:=0;
for i:=1 to 20 do A:= A+i*2;
writeln (' tong =',A);
readln;
end.
Đúng 1
Bình luận (0)
program im_14424;
uses crt;
var i, S: byte
begin
clrscr;
S:=0
for i:=1 to 20 do
begin
if i mod 2 = 0 then S:=S+i;
write('Tong cac so chan tu 1 den 20 la: ', S);
end;
readln;
end.
Đúng 1
Bình luận (0)
Xem thêm câu trả lời
Tính tổng các số từ 1 đến 50 bằng lệnh lặp while...do.
Program tinhtong;
var: i,s=longint;
Begin
i:=-1;
While i<50 do
Begin
i:=i+2;
S:-S+i;
End:
readln;
End.
Đúng 1
Bình luận (0)
Program HOC24;
var i,t: integer;
begin
i:=0; t:=0;
while i<=50 do
begin
i:=i+1;
t:=t+i;
end;
write('Tong cac so tu 1 den 50 la: ',T);
readln
end.
Đúng 1
Bình luận (0)
Dùng câu lệnh lặp For... to... do để viết chương trình tính tổng s: 1+5+10+15+...+n
viết chương trình tính tổng các số tự nhiên từ 1 đến N. Với số N là số tự nhiên bất kì do người sử dụng nhập và N > 5 lưu ý: sử dụng câu lệnh lặp For...do
Program HOC24;
var i,n: integer;
S:longint;
begin
write('Nhap n: '); readln(n);
s:=0;
for i:=1 to n do s:=s+i;
write('Tong la ',s);
readln
end.
Đúng 1
Bình luận (0)
Câu 6: Khi kết thúc câu lệnh lặp For, giá trị của biến đếm bằng …
A. Giá trị cuối B. Giá trị đầu C. Giá trị cuối – 1 D. Giá trị đầu + 1
Câu 7: Khi thực hiện câu lệnh lặp For, sao mỗi vòng lặp, biến đếm sẽ tự động tăng thêm …
A. 1 đơn vị B. 4 đơn vị C. 2 đơn vị D. 3 đơn vị
Câu 8: Câu lệnh ghép là câu lệnh được tạo thành từ 2 hay nhiều câu lệnh đơn giản, các câu lệnh đơn đó phải
được đặt trong hai từ khóa nào?
A. var và end...
Đọc tiếp
Câu 6: Khi kết thúc câu lệnh lặp For, giá trị của biến đếm bằng …
A. Giá trị cuối B. Giá trị đầu C. Giá trị cuối – 1 D. Giá trị đầu + 1
Câu 7: Khi thực hiện câu lệnh lặp For, sao mỗi vòng lặp, biến đếm sẽ tự động tăng thêm …
A. 1 đơn vị B. 4 đơn vị C. 2 đơn vị D. 3 đơn vị
Câu 8: Câu lệnh ghép là câu lệnh được tạo thành từ 2 hay nhiều câu lệnh đơn giản, các câu lệnh đơn đó phải
được đặt trong hai từ khóa nào?
A. var và end B. uses và begin
C. begin và end; D. const và begin
Câu 9: Để có thể lưu trữ các số nguyên rất lớn trong phạm vi -231 đến 231-1, ta sử dụng kiểu dữ liệu nào sau
đây?
A. real B. double C. longint D. byte
Câu 10: Với câu lệnh for i:=1 to n do … , trong đó i là:
A. Biến đếm chỉ số lần lặp
B. Biến chạy từ đầu đến cuối câu lệnh lặp
C. Biến điều khiển vòng lặp
D. Tất cả đều đúng
Câu 11: Câu lệnh lặp for i:=1 to 15 do writeln(‘O’); có số lần lặp là:
A. 14 B. 15 C. 17 D. 16
Câu 12: Để tính tổng các số nguyên từ 1 đến n, ta sử dụng câu lệnh lặp nào sau đây:
A. for i:=1 to n do s:=s+1; B. for i=1 to n do s:=s+i;
C. for i:=1 to n do s:=s+i; D. for i:=1 to n do s:=s+1;
Câu 13: Trong các câu lệnh sau đây, câu lệnh nào hợp lệ?
A. for i:=100 to 1 do writeln(‘A’); B. for i =1 to 15 do writeln(‘A’);
C. for i:=1 to 100 do writeln(‘A’); D. for i:=1.5 to 10.5 do writeln(‘A’);
Câu 14: Sau khi thực hiện đoạn chương trình sau, giá trị của biến j bằng bao nhiêu?
j:=0;
for i:=1 to 5 do j:=j+3;
A. 9 B. 13 C. 16 D. 15
Câu 15: Đoạn lệnh sau đây:
s := 0;
for i := 1 to n do
if (i mod 2 <> 0) then s := s + i ;
dùng để:
A. Tính tổng các số nguyên từ 1 đến n. B. Tính tổng các số nguyên chẵn từ 1 đến n.
C. Tính tổng các số nguyên lẻ từ 1 đến n . D. Tính tổng các số nguyên âm từ 1 đến n.
sorry nha mih viết bị thíu
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 ạ