Viết chương trình tìm các cặp số nguyên a,b trong đoạn từ 1 đến 200 thỏa mãn biểu thức sau: 1/3=(1/a)+(1/b). Pascal nha. Mk cảm ơn

0 bình luận về “Viết chương trình tìm các cặp số nguyên a,b trong đoạn từ 1 đến 200 thỏa mãn biểu thức sau: 1/3=(1/a)+(1/b). Pascal nha. Mk cảm ơn”

1. var a,b:byte;

   begin

   writeln(‘Cac cap so thoa man la: ‘);

   for a:=1 to 200 do

   for b:=1 to 200 do

   if (1/a+1/b=1/3) then writeln(a,’ ‘,b);

   readln

   end.

   Bình luận

2. program timso;
   uses crt;
   var a,b,so:integer;
   begin
    clrscr;     so:=0;
    for a:=1 to 200 do

        for b:=1 to 200 do if 1/3=(1/a)+(1/b) then
         begin
          writeln(a,’ ‘,b);

         end;

    readln;
   end.

   Bình luận