Câu 1: Viết chương trình tìm các số có 3 chữ số sao cho số đó bằng n lần tổng các chữ số của nó
Help me :(((( Bằng pascal nhé và nếu có fuction thì ko dùng nhé :))
viết chương trình tìm tất cả số có 3 chữ số sao cho tổng các chữ số bằng tích của chúng.Làm pascal
uses crt;
var a,b,c:integer;
begin
clrscr;
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if (a+b+c=a*b*c) then writeln(a,b,c,' ');
readln;
end.
Tổng 3 chữ số của số bé nhất có 3 chữ số có tích 3 chữ số bằng 3 là ?
Vt chương trình tìm các số có ba chữ số sao cho số đó bằng n lần tổng các chữ số của nó.(n nhập từ bàn phím)
uses crt;
var x,y,z,n : integer;
begin clrscr;
write('Nhap n:'); readln(n);
for x:=1 to 9 do
for y:=0 to 9 do
for z:=0 to 9 do
if n*(x+y+z) = x*100+y*10+z then
write('So thoa man de la :', x,y,z, ' ');
readln
end.
1.Tính nhanh:
a 1+2+3+...+100
B 1+3+5+...+2017
C 2+4+6+...+2018
D 12+15+18+...+42+45
2. Tìm số tự nhiên có 2 chữ số biết rằng nếu viết chữ số 0 vào giữa chữ số hàng chục và hàng đơn vị của số đó ta được số lớn hơn gấp 10 lần số đã cho . Nếu viết thêm chữ số 1 vào bên trái số vừa nhận được thì số đó tăng thêm 3 lần
3.a, Tính tổng 1+2+3+...+n.
b, Cho 100 số tự nhiên 1;2;3;....;100. Có thể chọn được 71 số sao cho tổng của chúng bằng tổng của 29 số còn lại không vì sao?
4. Để đánh trang 1 cuốn sách người ta cần dùng 3029 lượt chữ số . Hỏi cuốn sách đó có bao nhiêu trang ? Chữ số thứ 2017 là chữ số nào? Thuộc trang bao nhiêu
Các bạn nhớ làm cách của cấp 2 nhé. Ghi cách giải cho mk nhé!. Mk cảm ơn các bn
viết chương trình pascal nhập n thực hiện
dòng 1 xuất ra màn hình các chữ số của n
dòng 2 tổng các chữ số của n và xét xem tổng đó có phải là số nguyên tố không
dòng 3 các chữ số ở vị trí lẻ của n và tổng của chúng. Xét tổng đó có phải là số chính phương không
dòng 4 các chữ số ở vị trí chẵn của n và tổng của chúng. Xét tổng đó có phải là số hoàn hảo không
dòng 5 số lớn nhất và số nhỏ nhất của n và tổng của hai số đó
Giúp với !!
uses crt;
var n,i,d,dem,kt,t,kt1,t1,t2,t3,max,min,x,j:integer;
a,b:array[1..100]of integer;
st:string;
begin
clrscr;
write('Nhap n='); readln(n);
str(n,st);
d:=length(st);
for i:=1 to d do
val(st[i],a[i],x);
dem:=1;
b[1]:=a[1];
for i:=1 to d do
begin
kt:=0;
for j:=1 to dem do
if a[i]=b[j] then kt:=1;
if kt=0 then
begin
inc(dem);
b[dem]:=a[i];
end;
end;
writeln('Cac chu so cua ',n,' la: ');
for i:=1 to dem do
write(b[i]:4);
writeln;
t:=0;
for i:=1 to d do
t:=t+a[i];
writeln('Tong cac chu so cua ',n,' la: ',t);
kt1:=0;
for i:=2 to trunc(sqrt(t)) do
if t mod i=0 then
begin
kt1:=1;
break;
end;
if (kt1=0) and (t>1) then writeln(t,' la so nguyen to')
else writeln(t,' khong la so nguyen to');
writeln('Cac chu so o vi tri le cua ',n,' la: ');
t1:=0;
for i:=1 to d do
if i mod 2=1 then
begin
write(a[i]:4);
t1:=t1+a[i];
end;
writeln;
writeln('Tong cac chu so o vi tri le la: ',t1);
if trunc(sqrt(t1))=sqrt(t1) then writeln(t1,' la so chinh phuong')
else writeln(t1,' khong la so chinh phuong');
writeln('Cac chu so o vi tri chan cua ',n,' la: ');
t2:=0;
for i:=1 to d do
if i mod 2=0 then
begin
write(a[i]:4);
t2:=t2+a[i];
end;
writeln('Tong cac chu so o vi tri chan la: ',t2);
t3:=0;
for i:=1 to t2 do
if t2 mod i=0 then t3:=t3+i;
if (t3=t2) and (t2>0) then writeln(t2,' la so hoan hao')
else writeln(t2,' khong la so hoan hao');
max:=a[1];
min:=a[1];
for i:=1 to d do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('Chu so lon nhat cua ',n,' la: ',max);
writeln('Chu so nho nhat cua ',n,' la: ',min);
writeln('Tong cua chung la: ',max+min);
readln;
end.
tìm số chính phương n có 3 chữ số, biết rằng n chia hết cho 5 và nếu nhân n với 2 thì tổng các chữ số của nó ko đổi
các bạn trình bày ra nhé!!!!!!
Đặt \(n^2=\)abc chia hết cho 5=> n2=abc chia hết cho 25
=>b,c thuộc25;75
Ta có abc chia hết cho 9
+bc=25 => a=2
+bc=75 => a=6
Vậy....
1: Tìm các số tự nhiên có hai chữ số biết nếu lậy số đó chia cho tổng các chữ số của nó được 7 dư 9
2: Tìm ABC biết a,abc x ( a + b + c ) = 1
3: Tổng của một STN và một STP bằng 2077,15. Nếu bỏ dấu phẩy của STP đó thì tổng sẽ bằng 8824. Tìm STN và STP đó
4: Cho dãy số tự nhiên liên tiếp 1 ; 2 ; 3 ; 4 ; ............n
Tìm số chữ số của dãy đó bằng 3 x n
5: Có bao nhiêu số tự nhiên có 3 chữ số mà có ít nhất 2 chữ số giống nhau ?
7: Tổng sau có tận cùng bằng chữ số nào ?
1 + 1 x 2 + 1 x 2 x 3 + 1 x 2 x 3 + 1 x 2 x 3 x 4 + ......... + 1 x 2 x 3 x ........... x 99 x 100
Giúp nhé nhanh lên ko cần lời giải đâu
Mình cần tất cả các câu trên
Nguyễn Thanh Sơn ơi
Câu 1: Tìm một số tự nhiên có hai chữ số biết nếu viết thêm 1 chữ số 0 vào bên phải và 1 chữ số 1 vào bên trái số đó thì ta được 1 số mới bằng 50 lần số phải tìm
Câu 2: Hãy cho biết có tất cả bao nhiêu số có 3 chữ số mà tổng các chữ số của mỗi số đó bằng 4?
Bài giải
Gọi số cần tìm là ab, ta có: ab = (a+b)x7 hay 10.a+b = 7.a+7.b => 3.a = 6.b
Do 6 : 3 = 2 cho ta biết chữ số a gấp 2 lần chữ số b.
Ta được: b=1 và a=2 ; b=2 và a=4 ; b=3 và a=6 ; b=4 và a=8
Các số đó là : 21 ; 42 ; 63 ; 84. Có 4 số
ĐS: 4
HẾ LÔ MÌNH CÓ 3 BÀI TOÁN DÀNH CHO CÁC BẠN AI TRẢ LỜI ĐƯỢC THÌ NGƯỜI ĐÓ HỌC RẤT GIỎI NHA [NHỚ TRÌNH BÀY CÁCH GIẢI RÕ RÀNG NHÉ]
CÂU HỎI 1 : cho dãy số 2 ; 5; 8; 11; 14; ... Hãy tính tổng 100 số hạng đầu tiên .
Câu HỎI 2 : tìm số có 3 chữ số biết rằng nếu viết các chữ số theo thứ tự ngược lại thì được 1 số mới nhỏ hơn số ban đầu 792 đơn vị
CÂU CUỐI CÙNG NHÀ : cho 1 số có 2 chữ số nếu viết thêm chữ số vào bên trái và bên phải số đó ta được số mới gấp 32 lần số đã cho tìm số đã cho
lập được bao nhiêu số thập phân có 4 chữ số sao cho tổng 4 chữ số đó bằng 24 và nếu viết các chữ số đó theo thứ tự ngược lại thì giá trị không thay đổi
giải giúp mik nhé