[Cần gấp] các pro giúp em bt tin lớp 11 này cái?

[vietdollar]

Bài toán: 1/a + 1/b = 2/s
với a,b,s là các số nguyên dương
Nhập từ bàn phím số S, viết tất cả các cặp nghiệm a,b thoả mãn hệ thức trên sao cho a>b
Cứu em với, em xin đa tạ ^:)^

[auauau97]

Thì bạn cứ nhập số S rùi dùng vòng while là được ;


bạn tự nhập số S và khai báo nhá
while (a<=b) and (1/a+1/b=2/S) do
begin
a:=a+1;
b:=b+1;
end;
write('2 so can tim:',a,' va ',b);

[HGMinh95]

Thì bạn cứ nhập số S rùi dùng vòng while là được ;


bạn tự nhập số S và khai báo nhá
while (a<=b) and (1/a+1/b=2/S) do
begin
a:=a+1;
b:=b+1;
end;
write('2 so can tim:',a,' va ',b);

Bài này bạn auauau97 làm sai rồi, nếu cho vòng while như thế kia thì sẽ ko thể tìm được a, b.

Theo mình chỉ cần tăng b từ 1 -> khi 1/b + 1/(b+1) < s, đồng thời với mỗi b, tăng a từ b+1 -> khi 1/a + 1/b < 2/s. Với mỗi cặp a,b bạn chỉ cần kiểm tra xem s(a+b) = 2ab ko. Nếu đúng thì in ra màn hình.