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!

// 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;
}