Cho dãy số chẵn 2;4;6;8'....'x .Tìm x để số chữ số của dãy gấp 4 lần x
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.
Từ 2;4;...;8 có số chữ số là:
(8-2):2+1=4 chữ số
Từ 10;12;...;98 có số chữ số là:
[(98-10):2+1]x2=90 chữ số
Từ 100;102;...;998 có số chữ số là:
[(998-100):2+1]x3=1350 chữ số
Từ 1000;1002;....;2468 có số chữ số là:
[(2468-1000):2+1]x4=2940 chữ số
Vậy dãy trên có số chữ số là:
2940+1350+90+4=4384 chữ số
tính từ số nhà đầu tiên là số 1
Từ số 1 đến số 9 : có 9 chữ số
Từ số 10 đến số 99 : có (99 - 10) : 1 + 1 = 90 số => có 90 x 2 = 180 chữ số
Còn lại số chữ số là: 424 - 180 = 244 chữ số để đánh số nhà có 3 chữ số
244 : 3 = 243 (dư 1) => có 243 số nhà có 3 chữ số và dư 1 chữ số
Bạn xem lại đề: vì đánh số thứ tự các nhà nên không có trường hợp còn lẻ ra chữ số
sai đề vì đánh số thứ thự các nhà nên không có trường hợp lẻ ra chữ số
Các số có 1 chũ số: (9- 1) : 2 x 1 = 4(chữ số)
Các số có 2 chữ số: (90 : 2) x 2 = 90(chữ số)
Đã dùng số chữ số là: 424 - (90 + 4) = 330(chữ số)
Các số có 3 chữ số: 330 : 3 = 110(chữ số)
Số nhà cuối cùng là: (4 : 2) + (90 : 2) + (110 : 2) = 102
uses crt;
var a:array[1..2,1..5]of integer;
i,j,t:integer;
begin
clrscr;
for i:=1 to 2 do
for j:=1 to 5 do
begin
write('A[',i,',',j,']='); readln(a[i,j]);
end;
t:=0;
for i:=1 to 2 do
for j:=1 to 5 do
if a[i] mod 2=0 then t:=t+a[i];
writeln(t);
readln;
end.
Câu 1:
uses crt;
var a:array[1..100]of integer;
i,n,t,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
s:=1;
dem:=0;
for i:=1 to n do
if a[i] mod 3=0 then
begin
inc(dem);
t:=t+a[i];
s:=s*a[i];
end;
if dem=0 then writeln('Khong co so chia het cho 3 trong day')
else begin
writeln('Tong cac so chia het cho 3 la: ',t);
writeln('Tich cac so chia het cho 3 la: ',s);
end;
readln;
end.
Câu 2:
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.
Bài 1:
#include <bits/stdc++.h>
using namespace std;
long long n,x,i,t1,t2;
int main()
{
cin>>n;
t1=0; t2=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%2==0) t1=t1+x;
else t2=t2+x;
}
cout<<t1<<" "<<t2;
return 0;
}