Var a,b,c,d:integer;
Begin
Writeln('Cac so can tim la');
For a:=1 to 9 do
For b:=0 to 9 do
For c:=0 to 9 do
For d:=0 to 9 do
If a + b + c + d = 20 then
writeln(a,b,c,d);
readln;
End.
Nhập 1 số nguyên n có 3 chữ số. sao đó tính tổng của ba chữ số đó: ví dụ: n=234. tổng là 9.
Tìm các số trong khoảng từ 0 đến 999 bằng tổng lập phương các chữ số của nó .
Số chia hết hoàn toàn là số có tất cả các chữ số đều là ước của số hình thành từ chữ số đầu tiên đến chữ số đó. Cho số nguyên N (N<30001), tìm chia hết hoàn toàn thoả mãn lớn hơn 10 và nhỏ hơn N. N nhập từ bàn phím; ghi các số chia hết hoàn toàn vào tệp chht.out.
Viết chương trình sử dụng lệnh lặp While ... do ... để thực hiện công việc sau
- Nhập vào số nguyên n (10<n<100)
-In ra màn hình tất cả các ước của n
-Tính tổng và thông báo các ước của n là số chẵn
Viết Chương Trình Pascal Cho Nhập N Nguyên , Dương Từ Bàn Phím . In ra màn hình : -Các Ước Của N Không Kể N -Xác Định N Có Phải Là Số Hoàn Hảo -Tất Cả Số Hoàn Hảo Trong Phạm Vi Từ 1-> N
Tính số lần lặp và tính tổng các số tự nhiên liên tiếp sao cho tổng đó lơn hơn 150
cái này cũng hỏi anh Nguyễn Lê Phước Thịnh luôn anh giúp giùm em với ,mai em kiểm tra rồi
cho một hình chữ nhật ABCD,cạnh AB bằng a,cạnh BC=b.a,b là các số nguyên dương trong khoảng từ 1 đến 100.
một điểm M chạy trong đoạn BC với BM=X. X là số nguyên dương trong khoảng từ 0 đến b . Điểm N chạy trong đoạn CD với CN=x
tính giá trị lớn nhất và nhỏ nhất của diện tích tam giác AMN và X khi M,N lưu động
dòng đầu là diện tích lớn nhất của tam giác AMN
dòng 2 là giá trị của x khi đó
dòng 3 là diện tích bé nhất của tam giác AMN
dòng 4 là giá trị của x khi đó
vd:
nhập:10 6
in ra: 30.0
0
17.5
5
viết chương trình nhập vào số tự nhiên n sao đó in ra màn hình
chữ số lớn nhất của n
chữ số nhỏ nhất của n
sử dụng lệnh while ...do!!!!!!
