viết chương trình tính n số tự nhiên biết tổng không lớn hơn 3500
Những câu hỏi liên quan
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)
Viết chương trình tính tổng các số tự nhiên để tổng lớn hơn 20 ?
Xem chi tiết
Program HOC24;
var i,n,t: integer;
begin
n:=1; t:=0;
while t<=20 do
begin
t:=t+n;
n:=n+1;
end;
writeln('Tong la: ',t);
readln
end.
Đúng 2
Bình luận (0)
uses crt;
var i,n,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 20 do
t:=t+i;
if t>20 then
begin
writeln(t);
break;
end;
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình cho biết tổng nhỏ nhất lớn hơn 10 của N số tự nhiên đầu tiên là bao nhiêu?
Xem chi tiết
uses crt;
var t,n:integer;
begin
clrscr;
t:=0;
n:=0;
while t<=10 do
begin
n:=n+1;
t:=t+n;
end;
writeln(t);
readln;
end.
Đúng 0
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 tính tổng x1,x2,x3,...nhập vào từ bàn phím sao cho tổng nhỏ nhất lớn hơn 3500 (While...do)
program tim_tong;
uses crt;
var x,i,tong:longint;
begin
clrscr;
tong:=0;i:=1;
while tong<=3500 do
begin
write('x',i,'=');readln(x);
tong:=tong+x;
i:=i+1;
end;
write('tong cac so tren la:',tong);
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í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 số tự nhiên n. Trong các số tự nhiên nhỏ hơn n, tính tổng của tất cả các số chia hết cho 3.
#include <bits/stdc++.h>
using namespace std;
long long s,i,n;
int main()
{
cin>>n;
s=0;
for (i=1; i<=n; i++)
if (i%3==0) s=s+i;
cout<<s;
return 0;
}
Đúng 0
Bình luận (0)
Viết chương trình gồm n xâu không quá 100 kí tự và chỉ gồm kí tự số. Cho biết giá trị xâu nào lớn nhất và tính tổng n xâu
#include <bits/stdc++.h>
using namespace std;
string a[1000],t,ln;
int n,i;
int main()
{
cin>>n;
for (i=1;i<=n; i++) cin>>a[i];
ln=''
for (i=1; i<=n; i++) if (ln<a[i]) ln=a[i];
t=''
for (i=1; i<=n; i++) t=t+a[i];
cout<<ln<<" "<<t;
return 0;
}
Đúng 1
Bình luận (1)