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.
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.
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
Cho trước 1 dãy số :a1,a2,a3...a n .Hãy mô tả thuật toán để thực hiện một trong các công việc sau a)Liệt kê tất cả các số chẵn của dãy số b) Liệt kê tất cả các số lẽ của dãy số c) Liệt kê tất cả các số chia hết cho 9
Lập chương trình tìm tất cả số nguyên có 3 chữ số mà tổng các chữ số của nó = 20 và lấy số đó chia cho 6 thì dư 2
Viết chương trình nhập số tự nhiên m, liệt kê tất cả các số tự nhiên có 3 chữ số mà tổng các chữ số tự nhiên của nó bằng m
Giúp em viết câu lệnh đc k ạ
Viết chương trình tìm tất cả các số tự nhiên có 4 chữ số sao cho số đó chia hết cho 5 và tổng các chữ số đó là 20.
Viết Chương Trình nhập 2 số n bất kỳ sau đó in ra tổng các chữ số của n
viết chương trình in ra các số lẻ trong 1000 số tự nhiên daaffu tiên và tính tổng các số lẻ đó
mọi người giúp mình vs ạ , mai mình ktra r , thankkkk
Viết chương trình tìm tất cả các số tự nhiên có 3 chữ số. Biết rằng số đó chia cho 6 dư 2 và tổng các chữ số của nó là 20.
Viết chương trình cộng dồn số sách các lớp quyên góp cho đến khi tổng số sách lớn hơn hoặc bằng 100 thì dừng.
Mn giúp em ạ mai em thii rồi.