Hãy nhập n số và tính tổng sao cho tổng không vượt quá 1000.
Giúp mik với ạ!
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
18 tháng 3 2022
uses crt;
var n,i,s:integer;
begin
clrscr;
n:=1;
s:=0;
repeat
s:=s+n;
n:=n+1;
until s>1000;
writeln(n);
readln;
end.
17 tháng 2 2023
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,A[100],dem,t;
cin>>n;
for (int i=1; i<=n; i++)
cin>>A[i];
dem=0; t=0;
for (int i=1; i<=n; i++)
if (A[i]%2==0) dem++;
else t+=A[i];
cout<<dem<<endl;
cout<<t;
return 0;
}
H9
HT.Phong (9A5)
CTVHS
23 tháng 6 2023
Ta có: \(A=2+4+6+...+98+100\)
\(B=1+3+5+...+97+99\)
\(\Rightarrow A-B\)
\(=\left(2+4+6+...+100\right)-\left(1+3+5+7+...+99\right)\)
\(=\left(2-1\right)+\left(4-3\right)+...+\left(100-99\right)\)
\(=1+1+1+...+1\) (50 số 1)
\(=50\)
16 tháng 3 2022
Xắn tay đặt bát xin thề Ba năm mẫu giáo chưa hề yêu ai Có yêu cũng chẳng yêu ai Yêu ba yêu má là oai lắm rồi Bò không ăn cỏ bò ngu Thư không yêu tớ Thư ngu hơn bò
:)) =))
30 tháng 3 2021
Mình nghĩ mình sẽ không đưa code, mà chỉ đưa ý tưởng thôi nhé.
1. Khai báo n, mảng a và s = 0. Với mỗi phần tử a, ta cộng nó vào s. Cuối ta in ra s/n.
2. Cũng khai báo n, mảng a và 2 biến s1 (lưu tổng lẻ) và s2 (lưu tổng chẵn). Với mỗi a, ta kiểm tra số đó có phải là số chẵn hay lẻ (if n mod 2 = 0) và cộng vào s1 (nếu là chẵn) hoặc s2 (nếu là lẻ) và in ra.
3. Khai báo n, mảng a và minn để chứa số nhỏ nhất. Với mỗi a, tìm minn bằng cách so sánh a với minn và gán lại minn nếu nó lớn hơn a. Sau đó cho chạy thêm một vòng nữa để kiểm tra xem số nào là số minn, và in chỉ số của nó ra.
Nếu có gì thắc mắc, hỏi kỹ mình, mình sẽ giúp đỡ nhé.
Chúc bạn học tốt 
.
30 tháng 3 2021
Câu 1:
uses crt;
var n,i,t:integer;
a:array[1..100]of 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
t:=t+a[i];
writeln(t/n:4:2);
readln;
end.
MC
1
18 tháng 2 2022
uses crt;
var x,i,n,t:integer;
begin
clrscr;
t:=0;
repeat
readln(x);
t:=t+x;
until t>200;
writeln(t);
readln;
end.
19 tháng 5 2021
uses crt;
var a:array[1..100]of integer;
i,n,t1,t2,t3:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t1:=0;
for i:=1 to n do
if a[i]<0 then t1:=t1+a[i];
writeln('Tong cac so am la: ',t1);
t2:=0;
for i:=1 to n do
if a[i] mod 2=0 then t2:=t2+a[i];
writeln('Tong cac so chia het cho 2 la: ',t2);
t3:=0;
for i:=1 to n do
if (a[i]>0) and (a[i] mod 3=0) then t3:=t3+a[i];
writeln('Tong cac so duong chia het cho 3 la: ',t3);
readln;
end.
18 tháng 5 2022
uses crt;
var a:array[1..10]of integer;
i,t:integer;
begin
clrscr;
for i:=1 to 10 do read(a[i]);
t:=0;
for i:=1 to 10 do t:=t+a[i];
write(t);
readln;
end.
uses crt;
var n,t:integer;
begin
clrscr;
t:=0; n:=1;
while t<=1000 do
begin
t:=t+n;
n:=n+1;
end;
writeln(t);
readln;
end.
Bạn ơi cho mik hỏi làm thế này đc ko?
Program bt;
Var n,S:integer;
Begin
Writeln ('nhap n :=');
Readln(n);
S:=0;
n:=0;
White S<=1000 do
Begin
S:=S+n;
n:=n+1;
End;
Writeln ('so n la n:=',n);
Writeln ('tong khong vuot qua 1000:=',S);
Readln;
End.