uses crt;
var x,y,z,n : integer;
begin clrscr;
write('Nhap n:'); readln(n);
for x:=1 to 9 do
for y:=0 to 9 do
for z:=0 to 9 do
if n*(x+y+z) = x*100+y*10+z then
write('So thoa man de la :', x,y,z, ' ');
readln
end.
Viết chương trình so sánh 3 số nguyên a,b,c được nhập từ bàn phím.
viết chương trình nhập 5 số nguyên bất kì, tính tổng các số âm
Nhập từ bàn phím số nguyên dương N có 4 chữ số (số tạo bởi 2 chữ số đầu nhỏ hơn 24,hai chữ số sau nhỏ hơn 60).In lên màn hình các kết quả:
Dòng 1:Số N vừa nhập
Dòng 2:Tổng các chữ số của N
Dòng 3:Số giờ tương ứng trong ngày được tạo thành từ số N.
Mọi người giúp em bài Pascal này với ạ:
Bài 1: Viết chương trình nhập vào một dãy n số và in ra màn hình các thông tin sau:
-Số hạng dương lớn nhất của dãy và chỉ số (vị trí) của nó.
-Số hạng dương nhỏ nhất của dãy và chỉ số (vị trí) của nó.
-Số hạng âm lớn nhất của dãy và chỉ số (vị trí) của nó.
-Số hạng âm nhỏ nhất của dãy và chỉ số (vị trí) của nó.
Bài 2: Viết chương trình nhập vào mảng a gồm 10 phần tử nguyên, sau đó, nhập một giá trị x. Tìm trong mảng a nếu có phần tử nào có giá trị bằng với x thì hiển thị lên màn hình vị trí của nó trong mảng a.
Bài 3: Viết chương trình nhập vào một ma trận vuông, xuất ra màn hình ma trận đó và cho biết tổng các phần tử trên đường chéo chính.
Mọi người giúp em câu pascal này với ạ:
Câu 1. Nhập vào từ bàn phím số tự nhiên N.
Xuất ra màn hình các kết quả sau:
+ Dòng 1: Số 1 nếu N là số chẵn, số 0 nếu N là số lẻ.
+ Dòng 2: Các chữ số của N
+ Dòng 3: Tổng các chữ số của N
Ví dụ:
INPUT N = 20 N = 123
OUTPUT 1 0
2 0 1 2 3
2 6
Nếu có thể làm mà không dùng đến mảng càng tốt ạ
Em xin cảm ơn ạ
viết chương trình nhập vào dãy số nguyên 0<n<100. Và hiển thị ra các yêu cầu sau:
1. Số lượng các số hạng dương và tổng các số hạng dương
2. Số lượng các số hạng âm và tổng các số hạng âm
3. Trung bình cộng của cả dãy, trung bình cộng của các số âm, trung bình cộng của các số dương
Mọi người giúp em với ạ:
Bài 1: Viết chương trình tìm và hiển thị các số nguyên tố nhỏ hơn một số n được nhập từ bàn phím.
Em xin cảm ơn ạ
Mọi người giúp em bài Pascal này với ạ:
Bài 1: Viết chương trình giả làm trò chơi xổ số như sau: Người chơi nhập 5 lần, mỗi lần 1 số nguyên tùy ý, máy kiểm tra nếu trong các số nhập vào có 3 số trở lên trùng với các số máy lấy ngẫu nhiên thì người đó thắng và ngược lại là thua. Nếu thua thì máy báo Ban da thua ! và ngược lại máy báo Ban da thang !
Em xin cảm ơn ạ.
ai đóa giúp mk vs!!!
Cho số nguyên dương N, M và P là các số có 3 chữ số. Tìm số có tích các chữ số
lớn nhất. Đưa tích lớn nhất ra.
Ví dụ: N = 234 tich1 = 24; M = 123 tich2 = 6; P = 321 tich3=6.
Kết quả: Tích lớn nhất là 24.
Dữ liệu: Vào từ tệp CALC.INP gồm một dòng duy nhất chứa số nguyên N, M và
P là các số có 3 chữ số. Mỗi số cách nhau một dấu cách.
Kết quả: Ghi ra tệp CALC.OUT số nguyên duy nhất là tích lớn nhất tìm được.
Thank kiu trước nhoa
