Cho phương trình ax+by=c với a,b,c là các số cho trước Viết chương trình tìm số lượng cặp {x,y} x,y nguyên dương, là nghiệm của phương trình trên Pascal nhé
2 câu trả lời
uses crt;
var a,b,c,x,y,d: longint;
begin
write('Nhap a,b,c: ');readln(a,b,c);
for x:=1 to c do
for y:=1 to c do
if a*x + b*y = c then inc(d);
writeln ('So cap x va y: ',d);
readln
end.
var a,b,c,x,y,dem:longint;
begin
write('Nhap a,b,c: '); readln(a,b,c)
for x:=-c to c do
for y:=-c to c do
if (a*x+b*y=c) and (x>0) and (y>0) then inc(dem);
write('So luong la: ',dem);
readln
end.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 9 có lời giải chi tiết
