uses crt;
var a,b,c:integer;
begin
clrscr;
for a:=100 to 999 do
for b:=100 to 999 do
for c:=100 to 999 do
if a*100+b*10+c=(a*a*a)+(b*b*b)+(c*c*c) then writeln(a,b,c);
readln;
end.
uses crt;
var a,b,c:integer;
begin
clrscr;
for a:=100 to 999 do
for b:=100 to 999 do
for c:=100 to 999 do
if a*100+b*10+c=(a*a*a)+(b*b*b)+(c*c*c) then writeln(a,b,c);
readln;
end.
Viết chương trình pascal nhập hai số a và b tạo thành phân sô a/b . Tìm phần số tối giản của phân số a/b
Làm giúp với !
Bài 1: Viết chương trình nhập số nguyên dương n. Tính tổng các số chẫn chia hết cho 3 nhỏ hơn hoặc bằng n
Bài 2: Viết chương trình nhập vào 3 số nguyên dương a, b, c. Tìm ước chung lớn nhất của 3 số
Viết chương trình pascal tìm ước chung lớn nhất và bội chung nhỏ nhất của hai số a và b được nhập từ bàn phím Làm giúp với !
Câu 1: Viết biểu thức sau bằng kí hiệu pascal
a, (a+b)2 (d+e) b, ax2+bx2+cx
Câu 2: Nêu qui tắc đặt trong ngôn ngữ lập trình Pascal
Câu 3: Viết chương trình tính diện tích hình chữ nhật S với a , chiều rộng b nhập từ bàn phím
MONG MẤY MẤY BẠN GIẢI GIÚP
MÌNH CẦN GẤP
viết chương trình cho máy tính thực hiện phép tính A= 1+2+3... với a > or < 1500 pascal
Viết chương trình pascal nhập n. Đếm xem từ 1 đến n có bao nhiêu số chia hết cho 7 Làm giúp với !
Cho ba số a, b, c. Viết chương trình tìm số lớn nhất và số nhỏ nhất trong 3 số trên.
viết chương trình pascal nhập n thực hiện
dòng 1 xuất ra màn hình các chữ số của n
dòng 2 tổng các chữ số của n và xét xem tổng đó có phải là số nguyên tố không
dòng 3 các chữ số ở vị trí lẻ của n và tổng của chúng. Xét tổng đó có phải là số chính phương không
dòng 4 các chữ số ở vị trí chẵn của n và tổng của chúng. Xét tổng đó có phải là số hoàn hảo không
dòng 5 số lớn nhất và số nhỏ nhất của n và tổng của hai số đó
Giúp với !!
Viết chương trình tìm các số có 3 chữ số abc sao cho
abc=ab+bc+ac