Em hãy viết chương trình tính tổng các số tự nhiên từ 100 đến 1000 ( Sử dụng vòng lặp for .. do)
Những câu hỏi liên quan
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 chương trình tính tổng số tự nhiên băng 2 cách, sử dụng vòng lặp for-to-do và sử dụng vòng lặp while-do
GIÚP MÌNH VỚI
Tính tổng N số tự nhiên đầu tiên với N nhập từ bàn phím chứ bạn nhỉ?
Đúng 1
Bình luận (1)
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)
tính tổng các số tự nhiên từ 100 đến 1000 (vòng lặp for do)
uses crt;
var i:integer;
s:real;
begin
clrscr;
s:=0;
for i:=100 to 1000 do
s:=s+i;
writeln(s:0:0);
readln;
end.
Đúng 1
Bình luận (0)
Câu 1: Sử dụng vòng lặp for ... do, viết chương trình tính tổng của 10 số tự nhiên đầu tiên ?Câu 2: Viết chương trình tìm xem có bao nhiêu số dương trong N số nhập vào từ bàn phímCâu 3: Viết chương trình in ra màn hình bảng nhân của một số từ 1 đến 9, và dừng màn hình để có thể quan sát
Câu 1:
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do
s:=s+i;
writeln('Tong cua 10 so tu nhien dau tien la: ',s);
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i]>0 then inc(dem);
writeln('So luong phan tu duong la: ',dem);
readln;
end.
Câu 3:
uses crt;
var i,j:integer;
begin
clrscr;
for i:=1 to 9 do
begin
writeln('Bang nhan ',i,' la: ');
for j:=1 to 10 do
writeln(i,'*',j,'=',i*j);
delay(200);
end;
readln;
end.
Đúng 1
Bình luận (0)
[ Em hãy viết đoạn chương trình sử dụng vòng lặp For...do để in ra màn hình các số từ 1 đến 10 ]
giúp mik ik mai mik thi gk 2 r
tham khảo
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 10 do
t:=t+i;
writeln('Tong cac so tu nhien tu 1 toi 10 la: ',t);
readln;
end.
Đúng 1
Bình luận (0)
refer
uses crt;
var i: integer;
begin
clrscr;
for i:= 1 to 10 do
begin writeln ( ' O ' ) end;
readln
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 sử dụng vòng lặp while....do để tính tổng của các số tự nhiên chia hết cho 2 không vượt quá số N cho trước.
Xem thêm câu trả lời
Câu 22 Sử dụng vòng lặp While … do…Để viết chương trình tính tổng các số tự nhiên đầu tiên sao cho tổng đó nhỏ nhất và lớn hơn 500.
Program HOC24;
var i,n,t: integer;
begin
t:=0; i:=1;
while t<=500 do
begin
t:=t+i;
i:=i+1;
end;
write('Ket qua la: ',t);
readln
end.
Đúng 1
Bình luận (0)