Vct pascal xuất ra màn hình tất cả các số có 3 chữ số sao cho tổng lập phương của các chữ số đó bằng chính số đó.
(abc=a3+b3+c3)
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.
viết phương trình pascal nhập vào số n có 6 chữ số kiểm tra và xuất ra màn hình tổng các chữ số của số đó, sử dụng lệnh lặp for.....do
uses crt;
var s,x,i:byte;
n: string;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to length(n) do begin
val(n[i],x); inc(s,x); end;
write('Tong cac chu so cua so do la: ',s);
readln
end.
BÀI 8: Tìm tất cả các chữ số có ba chữ số abc sao cho tổng các lập phương của các chữ
số thì bằng chính số đó ( abc = a3 + b3 + c3).
uses crt;
var i,dv,ch,tr:integer;
begin
clrscr;
for i:=100 to 999 do
begin
dv:=i mod 10;
ch:=i div 10; ch:=ch mod 10;
tr:=i div 100; tr:=tr mod 10;
if (dv*ch*tr)=dv*dv*dv+ch*ch*ch+tr*tr*tr then write(i:6);
end;
readln;
end.
VCT pascal nhập số n từ bàn phím xuất ra màn hình:
+dòng 1:các ước của n
+dòng 2:nếu n là số lẻ thì xuất ra màn hình các số nguyên tố từ 1 đến n
+dòng 3: nếu n là số chẵn thì xuất ra màn hình các số hoàn hảo
+dòng 4:tổng các ước của n
(Bài thì cuối kỳ của mình nên cần rất gấp mong nhận được câu trả lời sớm)
VCT pascal nhập hai số a;b (a>0 ; b>0) Xuất ra màn hình các số chính phương từ a-b giúp mình với ạ😭mình đang cần gấp!!!
var tam,a,b,i:integer;
begin
write('a = ');readln(a);
write('b = ');readln(b);
if a < b then
begin
tam:=a;
a:=b;
b:=tam;
end;
for i:=a to b do
if sqrt(i) = trunc(sqrt(i)) then write(i:10);
readln;
End.
Tuất đó Giáp: Tại sao tù số có ba chữ số abc nếu ta lập tất cả các số có hai chữ số khác nhau. Cộng tất cả các số lập được như vậy, rồi chia cho 22 thì được thương bằng tổng các chữ số của số ban đầu?
Nguyễn Hùng Dũng
Số có ba chữ số: abc ﴾ a \(\ne\) 0﴿
Tổng các số có hai chữ số khác nhau lập được:
A = ab + ba + ac + ca + bc + cb
A = a x 20 + a x 2 + b x 20 + b x 2 + c x 20 + c x 2
A = a x 22 + b x 22 + c x 22
A = ﴾ a + b + c ﴿ x 22
Vậy A : 22 = ﴾ a + b + c﴿
Số có ba chữ số: abc ﴾ a # 0﴿
Tổng các số có hai chữ số khác nhau lập được:
A = ab + ba + ac + ca + bc + cb
A = a x 20 + a x 2 + b x 20 + b x 2 + c x 20 + c x 2
A = a x 22 + b x 22 + c x 22
A = ﴾ a + b + c ﴿ x 22
Vậy A : 22 = ﴾ a + b + c﴿
Nguyễn Hùng Dũng
Gọi có 3 chữ số là : abc (a khác 0)
Ta có : A = ab + ba + ac + ca + cb + bc
=> A = 10a + b + 10b + a + 10a + c + 10c + a + 10c + b + 10b + c
=> A = 22a + 22b + 22c
=> A = 22(a + b + c)
=> A : 22 = a + b + c
tìm tất cả các số tự nhiên có 5 chữ số sao cho số đó bằng tổng lập phương các chữ số của nó
Giải chi tiết cái nha
17576 và 19683
Bài này có trong tạp chí Toán Tuổi Thơ
Bài này của lớp 6
Tuất đó Giáp: Tại sao tù số có ba chữ số abc nếu ta lập tất cả các số có hai chữ số khác nhau. Cộng tất cả các số lập được như vậy, rồi chia cho 22 thì được thương bằng tổng các chữ số của số ban đầu?
Hãy giải câu đố của Tuất.
Số có ba chữ số: abc ( a # 0)
Tổng các số có hai chữ số khác nhau lập được:
A = ab + ba + ac + ca + bc + cb
A = a x 20 + a x 2 + b x 20 + b x 2 + c x 20 + c x 2
A = a x 22 + b x 22 + c x 22
A = ( a + b + c ) x 22
Vậy A : 22 = ( a + b + c)
Vct pascal nhập 2 số a ,b ( a>0;b>0) xuất ra màn hình + Tổng của a+b + Các ước của tổng a+b + Xét tổng (a+b) có phải là số nguyên tố không
program TinhTongVaUocSo;
var
a, b, tong, i: integer;
laSoNguyenTo: boolean;
begin
write('Nhap a: ');
readln(a);
write('Nhap b: ');
readln(b);
tong := a + b;
writeln('Tong cua a va b la: ', tong);
writeln('Uoc so cua tong la:');
for i := 1 to tong do
begin
if tong mod i = 0 then
writeln(i);
end;
laSoNguyenTo := true;
if tong < 2 then
laSoNguyenTo := false
else
for i := 2 to trunc(sqrt(tong)) do
if tong mod i = 0 then
begin
laSoNguyenTo := false;
break;
end;
if laSoNguyenTo then
writeln('Tong a va b la so nguyen to')
else
writeln('Tong a va b khong phai la so nguyen to');
readln;
end.
Vct pascal nhập 2 số a, b ( a>0;b>0) xuất ra màn hình + Tổng của a+b + Các ước của tổng a+b + xét tổng a+b có phải là số nguyên tố không
program TinhTongVaUocCuaTong;
var a, b, tong, i: integer;
SoNguyenTo: boolean;
begin
writeln('Nhap vao hai so a va b (a > 0, b > 0): ');
write('a = ');
readln(a);
write('b = ');
readln(b);
tong := a + b;
writeln('Tong cua a + b = ', tong);
writeln('Uoc cua tong a + b: ');
for i := 1 to tong do
begin
if tong mod i = 0 then
writeln(i);
end;
SoNguyenTo := true;
if tong < 2 then
SoNguyenTo := false
else
for i := 2 to trunc(sqrt(tong)) do
begin
if tong mod i = 0 then
begin
SoNguyenTo := false;
break;
end;
end;
if SoNguyenTo then
writeln('Tong a + b la so nguyen to:')
else
writeln('Tong a + b khong phai la so nguyen to:');
end.