Những câu hỏi liên quan
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)
Viết chương trình tính tổng của các số tự nhiên chẳn đầu tiên sao cho lớn hơn 69
uses crt;
var n,i,t:integer;
begin
n:=0;
t:=0;
repeat
n:=n+2;
t:=t+n;
until t>69;
writeln(n);
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập các số tự nhiên từ bàn phím (việc nhập chỉ dừng khi số lớn hơn 20). In ra số lượng số chẵn (hoặc lẻ), tính tổng các số chẵn (hoặc) lẻ vừa nhập Python
viết chương trình tính n số tự nhiên biết tổng không lớn hơn 3500
uses crt;
var n,t:integer;
begin
clrscr;
n:=0;
t:=0;
while t<=3500 do
begin
n:=n+1;
t:=t+n;
end;
writeln(t-n);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình tính tổng của các số tự nhiên n đến tổng đầu tiên lớn hơn 1001
Giúp mk vs ạ chiều nay mk thi cuối kì 2 gòi
Var n,s:integer;
Begin
n:=0;
While s<=1000 do
begin
n:=n+1;
s:=s+n;
End;
Write('Tong dau tien lon hon 1000 la ',s);
Readln;
End.
Đúng 3
Bình luận (0)
Tham khảo link: https://hoc24.vn/cau-hoi/viet-chuong-trinh-tinh-tong-cua-n-so-tu-nhien-dau-tien-sao-cho-tong-nho-hon-hoac-bang-1000giup-minh-voi-thu-6-thi-roi.180444032537
Đúng 2
Bình luận (0)
viết chương trình tìm số tự nhiên n sao cho tổng các số tự nhiên liên tiếp từ 1 đến n là tổng lớn nhất nhỏ hơn 500
program tim_n;
uses crt;
var tong,n,i:word;
begin
clrscr;
n:=1;tong:=0;
while tong<500 do
begin
for i:=1 to n do tong:=tong+i;
if tong<500 then begin tong:=0;n:=n+1;end
else n:=n-1;
end;
write('so n thoa man dieu kien la:',n);
readln;
end.
Đúng 0
Bình luận (0)
uses crt;
var i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to 500 do
begin
t:=t+i;
if t>500 then
begin
writeln(i);
break;
end;
end;
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình in ra màn hình sử dụng vòng lặp while để in ra màn hình tổng các số có giá trị lớn hơn 2.000 với n là số tự nhiên lớn hơn 2
n = int(input('Nhập số n lớn hơn 2: '))
tong = 0
i = 2
while i <= n:
tong += i
i += 1
print('Tổng các số từ 2 đến', n, 'là:', tong)
Đúng 0
Bình luận (0)
Câu 1: viết chương trình tích P của các số tự nhiên nhỏ hơn bằng 5Câu 2: viết chương trình tính tích các số tự nhiên lẻ từ 1 đến 10 Câu 3: viết chương trình tính tổng các số tự nhiên chẵn từ 1 đến nGiúp với , theo kiểu câu lệnh while do
Xem chi tiết
câu 1:
uses crt;
var p,i:integer;
begin
clrscr;
p:=1;i:=1;while i<=5 do
begin
p:=p*i;i:=i+1;
end;
write(p);
readln;
end.
bai 2:
uses crt;var p,i:integer;begin clrscr; p:=1; i:=0; while i <=10 do begin
i:=i+1; if (i mod 2<>0) then p:=p*i; end; write(p); readln;end. bai 3:
uses crt;var n,i,p:integer;begin clrscr; write('nhap n: '); readln(n); i:=1; p:=1; while i<=n do begin if i mod 2=0 then p:=p*i; i:=i+1; end; write(p); readln;end.
Đúng 1
Bình luận (3)
*Cách khác: Dùng for
Câu 1:
uses crt;
var p,i:longint;
begin
p:=1;
for i:=1 to 4 do
p:=p*i;
writeln(p);
readln;
end.
Câu 2:
uses crt;
var i,s:longint;
begin
clrscr;
s:=1;
for i:=1 to 10 do
if i mod 2=1 then s:=s*i;
writeln(s);
readln;
end.
Câu 3:
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
if i mod 2=0 then s:=s+i;
writeln(s);
readln;
end.
Đúng 0
Bình luận (1)
viết chương trình tính tổng của n số tự nhiên lớn hơn 4, biết tổng đó nằm trong khoảng từ 0 đến 4000
var i,n,s:longint;
begin
readln(n);
s:=0;
for i:=4 to n do s:=s+i;
writeln(s);
end.
Đúng 1
Bình luận (0)
uses crt;
var n,t:integer;
begin
clrscr;
n:=5;
t:=0;
while t<=4000 do
begin
t:=t+n;
n:=n+1;
end;
writeln(t-n);
readln;
end.
Đúng 0
Bình luận (0)