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.

Bài 1: 

uses crt;

var n,t,i,d,x:integer;

st:string;

begin

clrscr;

readln(n);

str(n,st);

d:=length(st);

t:=0;

for i:=1 to d do 

  begin

val(st[i],x);

t:=t+x;

end;

writeln(t);

readln;

end.

Các số là:

2035;2053;2305;2350;2503;2530;3025;3052;3205;3250;3502;3520;5023;5032;5203;5230;5302;5320

2035+2053+2305+2350+2503+2530+3025+3052+3205+3250+3502+3520+5023+5032+5203+5230+5302+5320=44563

Quá trời luôn. Bạn đánh siêu thật !

Tinh tong sai bet .phai la 64440.

Chọn B nhé bạn

B nha

Bài 1:

uses crt;

var n,i,s:integer;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

for i:=1 to n do 

 if i mod 6=0 then s:=s+i;

writeln(s);

readln;

end.

Bài 2: 

uses crt;

var a,b,c,ucln,i:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

while a<>b do 

  begin

if a>b then a:=a-b

else b:=b-a;

end;

ucln:=a;

while ucln<>c do 

 begin

if ucln>c then ucln:=ucln-c

else c:=c-ucln;

end;

writeln(ucln);

readln;

end.

Scratch hay java

Bài 1:

Gọi 2 số là a,b (\(a,b\inℤ\))

Ta có: a+b=51(*)

Mà 2/5a=1/6b

=> a=5/12b

Thay vào (*) ta có: 17/12b=51

=>b=36

Bài 1 : 

Gọi số thứ nhất và số thứ hai lần lượt là x và y (x,y thuộc z)

Tổng hai số bằng : \(x+y=51\left(1\right)\)

Biết 2/5 số thứ nhất thì bằng 1/6 số thứ hai 

\(x\frac{2}{5}-y\frac{1}{6}=0\left(2\right)\)

Từ 1 và 2 ta suy ra được hệ phương trình sau :

\(\hept{\begin{cases}x+y=51\\x\frac{2}{5}-y\frac{1}{6}=0\end{cases}}\)\(< =>\hept{\begin{cases}x=51-y\\\frac{2x}{5}-\frac{y}{6}=0\end{cases}}\)

\(< =>\frac{\left(51-y\right)2}{5}-\frac{y}{6}=0\)\(< =>\frac{102-2y}{5}-\frac{y}{6}=0\)

\(< =>\frac{102-2y}{5}=\frac{y}{6}\)\(< =>\left(102-2y\right)6=5y\)

\(< =>612-12y=5y\)\(< =>612=17y\)

\(< =>y=\frac{612}{17}=36\left(3\right)\)

Thay 3 vào 1 ta được : \(x+y=51\)

\(< =>x+36=51< =>x=51-36=15\)

Vậy số thứ nhất và số thứ hai lần lượt là 15 và 36

1:

uses crt;

var a:array[1..100]of integer;

i,n,max:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

max:=a[1];

for i:=1 to n do 

  if max<a[i] then max:=a[i];

writeln(max);

readln;

end.

2:

uses crt;

var s:real;

i:integer;

begin

clrscr;

s:=0;

for i:=1 to 100 do 

  s:=s+1/i;

writeln(s:4:2);

readln;

end.