Phân tích N thành tổng các số chính phương

[dongbo]

Cho số tự nhiên N (N≤60000). Phân tích N thành tổng các số chính phương nhỏ dần sao cho số các số hạng là ít nhất.
Ví dụ: 30=5^2+2^2+1^2.

[dongbo]

Hic Không có ai giúp em bài này sao?

[xuperman]

Mình mới nghĩ ra ý này:

Bạn lấy phần nguyên căn của nó, rồi từ đó
sử dụng QHĐ để tính tổng S nha.

[Farmer_Boy]

Cách của bạn xuperman cũng hay đó

[auauau97]

Cách của bạn xuperman cũng hay đó

Ừ, bài này dùng QHD cũng khá hay !

[Farmer_Boy]

Mình làm như vầy đây, có sai sót gì thì nói nhé:

program phantich;
uses crt;
var
  n,k,l:longint;
  i:byte;
  s:string;
begin
  clrscr;
  repeat
    write('-Nhap so n (n>=0): ');
    readln(n);
    k:=n;
    write(n,' = ');
    if ((n<4) and (n>0)) then
      for i:=1 to n do
        if i=n then writeln('1^2')
          else write('1^2 + ')
    else if n=0 then writeln('0^2')
    else while k<>0 do
      begin
        l:=k;
        l:=trunc(sqrt(l));
        k:=k-sqr(l);
        if k=0 then writeln(l,'^2')
          else write(l,'^2 + ');
        if k<4 then
          for i:=1 to k do
            if i=k then begin
              writeln('1^2');
              k:=0;
            end
            else write('1^2 + ')
      end;
    write('-Co muon nhap lai khong (C/K): ');
    readln(s);
    writeln;
  until upcase(s)='K';
  writeln('-Nhan Enter de thoat');
  readln
end.

[Farmer_Boy]

Bài này dùng file chắc sẽ tốt hơn, nhưng mà mình lỡ làm rồi

[auauau97]

Bài này dùng file chắc sẽ tốt hơn, nhưng mà mình lỡ làm rồi

Đâu cần hả bạn, đề bài đâu có yêu cầu làm vào file đâu ?

[Farmer_Boy]

Mình đã làm ở trên rồi, cho ý kiến nhé

[auauau97]

Mình đã làm ở trên rồi, cho ý kiến nhé

Mình đã test, cách làm khá hay