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 Pasc

0 bình luận về “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 Pasc”

1. 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.

   Bình luận

2. 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.

   Bình luận