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.
uses crt;
var i,dv,ch,tr,a:integer;
begin
clrscr;
for i:=0 to 999 do
begin
a:=i;
dv:=a mod 10;
ch:=a div 10; ch:=ch mod 10;
tr:=a div 100;
if dv*dv*dv+ch*ch*ch+tr*tr*tr=a then write(a:4);
end;
readln;
end.
Câu 1:
Giả sử \(\overline{abc}\) (0 <= a, b, c <= 9) là số Amstrong, ta cần tìm a, b và c thỏa mãn:
100a + 10b + c = a3 + b3 + c3. Chương trình như sau:
Program Amstrong;
var a, b, c: integer;
begin
writeln( ‘ cac so Amstrong trong khoang tu 0-999 la’);
for a:= 0 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if a*100 + b*10 +c = a*a*a + b*b*b + c*c*c
then writeln(a*100 +b*10 +c);
readln;
End.
uses crt;
var n,d,dem,i,x,y,t:integer;
st:string;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (1000<=n) and (n<=9999);
if n mod 2=0 then
begin
str(n,st);
d:=length(st);
dem:=0;
for i:=1 to d do
begin
val(st[i],x,y);
if x=0 then inc(em);
end;
writeln('So chu so 0 co trong so ',n,' la: ',dem);
end
else begin
str(n,st);
t:=0;
d:=length(st);
for i:=1 to d do
begin
val(st[i],x,y);
t:=t+sqr(x);
end;
writeln('Tong binh phuong cac chu so trong so ',n,' la: ',t);
end;
readln;
end.
uses crt;
var n,d,dem,i,x,y,t:integer;
st:string;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (1000<=n) and (n<=9999);
if n mod 2=0 then
begin
str(n,st);
d:=length(st);
dem:=0;
for i:=1 to d do
begin
val(st[i],x,y);
if x=0 then inc(em);
end;
writeln('So chu so 0 co trong so ',n,' la: ',dem);
end
else begin
str(n,st);
t:=0;
d:=length(st);
for i:=1 to d do
begin
val(st[i],x,y);
t:=t+sqr(x);
end;
writeln('Tong binh phuong cac chu so trong so ',n,' la: ',t);
end;
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long n,t,x,a;
int main()
{
cin>>n;
a=n;
t=0;
while (n>0)
{
x=n%10;
t=t+x*x*x;
n=n/10;
}
if (n==t) cout<<"Yes";
else cout<<"No";
return 0;
}
Program HOC24;
var a: array[1..32000] of longint;
i,n,max: integer;
function uoc(x: longint): integer;
var d: integer;
begin
d:=0;
for i:=1 to x do if x mod i=0 then d:=d+1;
uoc:=d;
end;
begin
readln(n);
for i:=1 to n do read(a[i]);
max:=uoc(a[1]);
for i:=2 to n do
if uoc(a[i])>max then max:=uoc(a[i]);
write(max);
readln
end.
Trong trường hợp tìm các số từ 0 đến 999 (tức là chấp nhận cả các số có 1 hoặc 2 chữ số):
Em có thể viết 3 vòng for lồng nhau để duyệt tất cả các giá trị của a, b và c (từ 0 đến 9)
Trong mỗi lần lặp thì kiểm tra điều kiện abc = a^3 + b^3 + c^3 bằng câu lệnh tương đương trong pascal:
a*100 + b*10 + c = a*a*a + b*b*b + c*c*c
Nếu thỏa mãn thì in ra màn hình.
Mà lớp 8 có tin học ak
Giả sử \(\overline{abc}\) (0 <= a, b, c <= 9) là số Amstrong, ta cần tìm a, b và c thỏa mãn:
100a + 10b + c = a3 + b3 + c3. Chương trình như sau:
Program Amstrong;
var a, b, c: integer;
begin
writeln( ‘ cac so Amstrong trong khoang tu 0-999 la’);
for a:= 0 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if a*100 + b*10 +c = a*a*a + b*b*b + c*c*c
then writeln(a*100 +b*10 +c);
readln;
End.