Tính tổng của S= 1+2+3+..+n sao cho tổng S nhỏ nhất lớn hơn 500
Những câu hỏi liên quan
Tính tổng của S= 1+2+3+..+n sao cho tổng S nhỏ nhất lớn hơn 500
Vơi n là ô nguyên đc nhập từ bàn phim
xl phim mik hư
uses crt;
var s,n:integer;
begin
clrscr;
s:=0;
n:=0;
while s<=500 do
begin
inc(n);
s:=s+n;
end;
writeln(s);
readln;
end.
Đúng 0
Bình luận (0)
VIẾT CHƯƠNG TRÌNH TÍNH TỔNG S = 1+2+3+....N SAO CHO TỔNG S NHỎ NHẤT > 700 KHI CHẠY CHƯƠNG TRÌNH SẼ CHO KẾT QUẢ NHƯ SAU: S NHỎ NHẤT ĐỂ TỔNG > 700 LÀ= 38 S ĐẦU TIÊN LỚN HƠN 700 LÀ = 703
Uses crt;
var
begin clrscr;
k:=1;
s:=0;
while (s<700) do begin
k:=k+1
s:=s+k;
end;
writeln(s,' ',k);
readln;
end;
Đúng 2
Bình luận (0)
9 tháng 4 2023 lúc 20:44
Viết chương trình tính tổng sau: S=1+2+3+...+n. Sao cho tổng S nhỏ nhất >500 (với n là số nguyên được nhập vào từ bàn phím).
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)
1, Viết số lẻ lớn nhất có 6c/s mà tổng các c/s của nó = 24
2,Tìm giá trị nhỏ nhất của só tự nhiên a, sao cho:301 x a lớn hơn 2010
3, Tìm x biết x là số tròn chục và 150 bé hơn x:3 bé hơn 210
(Bài 2 giải hẳn ra)
giúp đi tick cho mai tui đi học rồi huhuhu
Bài 1: Số bé nhất cho 6 chữ số là: 100000
Số lẻ bé nhất cho 6 chữ số là: 100001
Mà tổng các chữ số của nó là 24 nên số đó là: 100599
Bài 2: a x 301 mà lớn hơn 2010 nên a x 301 = 2107
a = 2107 : 301
a = 7
Bài 3: 150 < x:3 < 210
150 x 3 < x < 210 x 3
450 < x < 630
Vậy x là: 460; 470; 480; 490; 500; 510; 520; 530; 540; 550; 560; 570; 580; 590; 600; 610; 620
Đúng 1
Bình luận (0)
Tính tổng S biết S(n) = 1^2 + 2^2 +3^2 +4^2+… + k^2 sao cho tất cả các giá trị từ 1^2 đến k^2 phải nhỏ hơn hoặc bằng n
1. viết chương trình cho người dùng nhập n . In ra tổng của S
2.trình bày ra giấy tính độ phức tạp của chương trình vừa thực hiện
Mn làm giúp mình với ạ . Càng sớm càng tốt :((
1:
#include <bits/stdc++.h>
using namespace std;
long long n,i,s;
int main()
{
cin>>n;
s=0;
for (i=1; i<=n; i++)
s=s+i*i;
cout<<s;
return 0;
}
Đúng 0
Bình luận (0)
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 lớn hơn 500 thì dừng và in ra màn hình tổng và số N nhỏ nhất để tổng lớn hơn 500 sử dụng câu lệnh lặp while...do viết cả phương trình lẫn thuật toán nha....
Program HOC24;
var i,n,t: integer;
begin
n:=1; t:=0;
while t<=500 do
begin
t:=t+n;
n:=n+1;
end;
writeln('Tong la: ',t);
write('So N nho nhat de tong lon hon 500 la: ',n);
readln
end.
Đúng 3
Bình luận (0)
*Cách khác: Dùng Repeat Until
uses crt;
var n,t:integer;
begin
clrscr;
t:=0;
n:=0;
repeat
n:=n+1;
t:=t+n;
until t>500;
writeln(t);
writeln(n);
readln;
end.
Đúng 1
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)
Cho số nguyên dương n(n nhỏ hơn hoặc bằng 250) và dãy A gồm n số nguyên dương A1, A2,...An. mỗi số đều không vượt quá 500 .
a/Tính tổng các số là bội của 3
b/tìm giá trị lớn nhất nhỏ nhất của mảng
Xem chi tiết
uses crt;
var a:array[1..250]of integer;
n,i,t,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 3=0 then t:=t+a[i];
writeln('Tong cac so la boi cua 3 la: ',t);
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('Gia tri lon nhat la: ',max);
writeln('Gia tri nho nhat la: ',min);
readln;
end.
Đúng 2
Bình luận (0)