Bài 5. Từ bài toán đến chương trình

Eriken

Hãy viết chương trình in ra màn hình kết quả phù hợp với \(\overline{abc}=\overline{ab}+\overline{bc}+\overline{ac}\)

bảo nam trần
22 tháng 1 2019 lúc 14:41

var a,b,c:integer;

begin

write('cac so abc thoa man la:');

for a:=1 to 9 do

for b:=0 to 9 do

for c:=0 to 9 do

for d:=0 do 9 do

if a*100+b*10+c=a*10+b+b*10+c+a*10+c then write(a,b,c);

readln

end.

nhầm nhẹ

Bình luận (0)
Eriken
21 tháng 1 2019 lúc 17:38
Bình luận (3)
bảo nam trần
22 tháng 1 2019 lúc 14:38

var a,b,c:integer;

begin

write('cac so abc thoa man la:');

for a:=1 to 9 do

for b:=0 to 9 do

for c:=0 to 9 do

for d:=0 do 9 do

if a*100+b*10+c=a*10+b+b*10+c+a*10+c then write('a,b,c');

readln

end.

Bình luận (0)

Các câu hỏi tương tự
Eriken
Xem chi tiết
43-8.1 Lam trường
Xem chi tiết
Uyển Lộc
Xem chi tiết
Trang Hoàng
Xem chi tiết
My Nguyen
Xem chi tiết
Ngáo Ngơ Alice
Xem chi tiết
baopham
Xem chi tiết
phạm ngọc hân
Xem chi tiết
Huyền Trang
Xem chi tiết