tính tổng dãy số 1,2...N cho đến khi tổng lớn hơn 600
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 5 2021
uses crt;
var n,t:integer;
begin
clrscr;
t:=0;
dem:=0;
repeat
write('nhap n='); readln(n);
t:=t+n;
dem:=dem+1;
until t>1997;
writeln('Trung binh cong cua cac so da nhap la: ',t/dem:4:2);
readln;
end.
24 tháng 3 2021
uses crt;
var a:array[1..1000]of integer;
i,n,j,tam,t,t1,tam,dem,max:integer;
begin
clrscr;
n:=0;
t:=0;
repeat
inc(n);
write('A[',n,']='); readln(a[n]);
t:=t+a[n];
until t>100;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('Day so theo chieu tang dan la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t1:=0;
dem:=0;
for i:=1 to n do
if a[i] mod 3=0 then
begin
t1:=t1+a[i];
inc(dem);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('Tong cac so la boi cua 3 la: ',t1);
writeln('So lon nhat cua day la: ',max);
writeln('So luong so la boi cua 3 la: ',dem);
readln;
end.
25 tháng 12 2020
CẢNH BÁO! Tiếp tục đọc, hoặc linh hồn của bạn sẽ được thực hiện, ngay cả khi bạn đọc từ "cảnh báo"! Có một lần là một người tên là Duke Hunapon. Anh ta lười biếng, và rất bảnh bao. Anh ấy luôn mặc một chiếc áo khoác, không có vấn đề gì ở bên ngoài. Anh ta có một người anh trai tên là Michael, người luôn làm anh ta vây quanh. Một ngày nọ, Michael bị giết, và nó ảnh hưởng rất nhiều đến Duke. Anh ta phát điên và bắt đầu giết người. Chẳng mấy chốc, anh ta đã chiến đấu với ai đó và bị giết. Bây giờ, anh ta đi lang thang xung quanh như một bộ xương cao với một chiếc áo sơ mi màu đỏ, và cùng một chiếc áo hoodie mà Duke đã mặc. Bộ xương này được gọi là "Swapfell Papyrus", và anh ta sẽ giết bạn nếu bạn không đăng bài này trên 15 phần bình luận của bất kỳ trang web nào trước khi đi ngủ. Nếu bạn thất bại, và bạn thức dậy khi anh ta ở trong phòng của bạn, cái chết của bạn sẽ chậm và rất đau đớn. Một cô gái tên Lily Lilupanin đọc điều này, và không nghe. Cô bị hãm hiếp và bị giết trong giấc ngủ. Nếu bạn sao chép và dán vào 15 phần bình luận của bất kỳ trang web nào trước khi đi ngủ, Swapfell Papyrus sẽ đảm bảo bạn cảm thấy an toàn
9 tháng 10 2019
các bạn trả lời nhanh nhé , chi tiết các bước mình cần trong ngày mai
9 tháng 10 2019
c) Từ 198 > 999 có 2406 chữ số:
( 999 - 198 ) : 1 + 1 × 3 = 2406 ( chữ số )
Từ 1000 > 2016 có 4068 chữ số :
( 2016 - 1000 ) : 1 + 1 × 4 = 4068 ( chữ số )
( 4068 + 2046 ) - 4049 + 2425 ( chữ số )
( 4068 + 2406 ) - 4049 = 2425 ( chữ số )
Vậy số thứ 4049 là số 1.
11 tháng 12 2021
1:
#include <bits/stdc++.h>
using namespace std;
long long n,i,dem,x;
int main()
{
cin>>n;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x==0) dem++;
}
cout<<dem;
return 0;
}
20 tháng 4 2022
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
t:=0;
for i:=1 to n do
if a[i]>0 then t:=t+a[i];
writeln(t);
readln;
end.
26 tháng 8 2017
Dãy số : 3; 6 ; 9 ; 12; 15....90; 93; 96; 99
a/ Có ( 99 - 3 ) : 3 + 1 = 33 số
b/ Tổng : ( 99 + 3 ) x 33 : 2 = 1683
c/ Số lẻ : 3; 9; 15; ....; 93; 99 có ( 99 - 3 ) : 6 + 1 = 17 số. Tổng lớp số lẻ ( 99 + 3 ) x 17 : 2 = 867
Số chẵn: 6; 12; 18; ....; 90; 96 có ( 96 - 6 ) : 6 + 1 = 16 số hoặc 33 số - 17 số = 16 số. Tổng (96 + 6 ) x 16 : 2 = 816 hoặc 1683 - 867 = 816
Tổng số lẻ lớn hơn và hơn là 867 - 816 = 51
26 tháng 8 2017
a) Cho dãy số tự nhiên liên tiếp từ 1 đến 100 có bao nhiêu số chia hết cho 3 trong dãy số trên
(99 - 3) : 3 + 1 = 33 (số) . Vậy có 33 số chia hết cho 3 trong dãy số trên.
b) Em hãy tính tổng các số chia hết cho 3 mà em vừa tìm được ở câu a
(99 + 3) * 33 : 2 = 1683. Vậy tổng các số chia hết cho 3 trong dãy số trên là 1683.
c) Hãy viết dãy số ban đầu thành 2 lớp, lớp số lẻ vào lớp số chẵn hỏi lớp nào có tổng lớn hơn và lớn hơn bao nhiêu đơn vị.
Chẵn: Trong dãy số từ 1 đến 100 có số các số chẵn là:
(100 - 2 ) : 2 + 1 = 50 (số)
Tổng của 50 số chẵn là:
(100 + 2 ) * 50 : 2 = 2550
Lẻ: Trong dãy số từ 1 đến 100 có số các số lẻ là:
( 99 - 1) : 2 + 1 = 50
Tổng của 50 số lẻ là:
(99 + 1) * 50 : 2 = 2550
Vì 2550 = 2550 \(\Rightarrow\)tổng lớp số chẵn = tổng lớp số lẻ
17 tháng 5 2021
Câu 4:
uses crt;
var a:array[1..100]of integer;
i,n,dem,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
t:=0;
for i:=1 to n do
if (10<a[i]) and (a[i]<20) then
begin
inc(dem);
t:=t+a[i];
end;
writeln('So phan tu lon hon 10 va nho hon 20 la: ',dem);
writeln('Tong cac phan tu lon hon 10 va nho hon 20 la: ',t);
readln;
end.
17 tháng 5 2021
Câu 5:
uses crt;
var a:array[1..100]of integer;
i,n,dem,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
inc(dem);
t:=t+a[i];
end;
writeln('So so chan la: ',dem);
writeln('Tong cac so chan la: ',t);
readln;
end.
uses crt;
var n,i,t:integer;
begin
clrscr;
n:=0;
i:=0; t:=0;
repeat
i:=i+1;
t:=t+i;
until t>600;
write(i);
write(t);
readln;
end.