Lập chương trình tìm ba số a,b,c sao cho a^2+b^2+c^2=abc bằng pascal

0 bình luận về “Lập chương trình tìm ba số a,b,c sao cho a^2+b^2+c^2=abc bằng pascal”

1. program ct;
   uses crt;
   var a,b,c:longint;
   begin clrscr;
      writeln(‘So a,b,c thoa man a^2+b^2+c^2=abc la: ‘);
      for a:=1 to 9 do
        for b:=0 to 9 do
          for c:=0 to 9 do
            if (a*a+b*b+c*c=a*100+b*10+c) then writeln(a,b,c);
   readln;
   end.

   Học tốt!

   Bình luận

2. // ba số a b c sao cho \(a^2+b^2+c^2=a.b.c\)

   #include <iostream>
   using namespace std;
   int main()
   {
       int a,b,c;
       for(int a=1;a<=9;a++){
           for(int b=0;b<=9;b++){
               for(int c=0;c<=9;c++){
                   if(a*a+b*b+c*c==a*b*c){
                       cout<<a<<” “<<b<<” “<<c<<endl;
                   }
               }
           }
       }
       //samon247
       return 0;
   }
   

   // ba số a b c sao cho \(a^2+b^2+c^2=\overline{abc}\) nhưng ở đây không tìm ra số thoả mãn

   #include <iostream>
   using namespace std;
   int main()
   {
       int a,b,c;
       for(int a=1;a<=9;a++){
           for(int b=0;b<=9;b++){
               for(int c=0;c<=9;c++){
                   if(a*a+b*b+c*c==a*100+b*10+c){
                       cout<<a<<” “<<b<<” “<<c<<endl;
                   }
               }
           }
       }
       //samon247
       return 0;
   }
   

   Bình luận