viết chương trình tính tổng các số tự nhiên nhỏ nhất lớn hơn 1000
Những câu hỏi liên quan
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)
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)
câu 1viết chương trình tính tổng của các số lẻ nhỏ hơn N với N được nhâp từ bàn phím
câu 2 viết chương trình in ra màn hình n*
câu 3 viết chương trình tính tổng của N số sao cho tổng đó lớn nhất nhỏ hơn 1000
giúp mình đi mai mk thi rồi
Viết chương trình tìm n nhỏ nhất để tổng các số từ 1 đến n lớn hơn 1000 ( sử dụng while)
Var i,s:integer;
Begin
i:=0;
While s<=1000 do
Begin
i:=i+1;
s:=s+i;
End;
Write('n nho nhat la ',i);
Readln;
End.
Đúng 0
Bình luận (0)
Viết chuơng trình tính tổng Sn=1+2+3+... +N. Cần cộng bao nhiêu số tự nhiên để ta nhận đuợc tổng Sn nhỏ nhất lớn hơn 1000.Tinh tổng Sn
program TongSn;
var
N, S: integer;
begin
S := 0;
N := 1;
while S <= 1000 do
begin
S := S + N;
N := N + 1;
end;
writeln('So tu nhien can cong de tong Sn vuot qua 1000 la: ', N-1);
writeln('Tong S', N-1, ' la: ', S);
end.
Đúng 1
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ác số tự nhiên lẻ chia hết cho 5 và nhỏ hơn 1000 Hướng dẫn - i ban đầu = 5 - sau mỗi lần lặp 10, lên 10 (i = i thuộc 10 ) - Điều kiện cặp i < 1000
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 1000 do
if (i mod 10=5) and (i mod 2=1) then t:=t+i;
writeln(t);
readln;
end.
Đúng 3
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 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)