Số may mắn (SOLUCKY1.CPP). Số đẹp là số mà có tổng các chữ số của số đó là một số chính phương. Trong tệp SOLUCKY1.INP cho số nguyên a. Hãy viết chương trình kiểm tra xem số a có phải là số đẹp hay không và ghi kết quả vào tệp SOLUCKY1.OUT theo quy ước: + Ghi YES nếu a là số đẹp. + Ghi NO nếu a không là số đẹp. giúp tôi vsssss

Var fi,fo:Text;
    S:AnsiString;
    d,d1,i:Longint;
 Begin
  Assign(fi,'SOLUCKY1.inp');Reset(fi);
  Assign(fo,'SOLUCKY1.out');Rewrite(fo);
  Readln(fi,S);
    For i:=1 to Length(S) do
     Begin
      Val(S[i],d1);
      d:=d+d1;
     End;
    If Frac(Sqrt(d))=0 then Write(fo,'YES')
     Else Write(fo,'NO');
  Close(fi);Close(fo);
End.

#include <bits/stdc++.h>

using namespace std;

long long tongcs(string n)

{

long long s=0;

for (char i:s) {s+=i-'0';}

return s;

}

string n;

int main()

{

ifstream fi;

fi.open("SOLUCKY1.INP", ios_base::in);

ofstream fo;

fo.open("SOLUKY1.OUT", ios_base::out);

string n;

getline(fi,n);

long long tcs=tongcs(n);

if (int(sqrt(tcs))*int(sqrt(tcs))==tcs) fo << "YES";

else fo << "NO";

fi.close();

fo.close();

}

*Mình code trực tiếp, có gì sửa sau :v