Циклы (разложить число в ряд суммы квадратов)

[Horatii]

Привет всем!!!
ну у мну такой вопрос
дается 1^2+2^2+3^2+4^2+..+n^2
1 + 4 + 9 + 16 +...+n
5 14 30 n
чтобы программе дал назад 4 уровни (1 4 9 16)

я вот так подумал но не работает

program p1;
var a,b,c,d:integer;
begin
readln(a);
for i:=1 to n do
while b:=a do
b:=b+sqr(i+1);
write (i);
end. {не работает пробовал и с инструкцией repeat тоже что то не то}
Дал а:=30 а программа написала 4(1 + 4 + 9 + 16)
Дал а:=14 а программа написала 3(1 + 4 + 9 )

[Alex11223]

Вопрос-то где? Не понял, что вы хотите сделать.

[Horatii]

Чтобы программа дала мне уровни если а:=5 то тут 2 уровня
и без case

[Alex11223]

Что такое уровни?оО
Члены этой последовательности от 1 до а? А зачем тогда n?

[JUDAS]

program Project5;
var i,a,d :integer;
    r   : string;
begin
 readln(a);
 i:=1;
 r:='';
 repeat
  d:=sqr(i);
  A:=A-d;
  r:=r+str(d)+' ';
  inc(i);
 until sqr(i)>a;
 write (r);
end.

Но если я дам значение которое не разбивается на сумму квадратов, то переменна а будет содержать остаток.
Например А=32 даст (1+4+9+16) и остаток 2

[Serge_Bliznykov]

мне понравилось решение от JUDAS

но там маленькая ошибочка - STR - это не функция, а процедура.
вот исправленное решение (ну плюс ещё добавил вывод то, что автор темы называет "уровнем")

program Project5;
var i,a,d :integer;
    r, sD   : string;
begin
 readln(a);
 i:=1;
 r:='';
 repeat
  d:=sqr(i);
  A:=A-d;
  str(d, sD);
  if length(r)=0 then r := sD
  else r:=r + ' + ' + sD;
  inc(i);
 until sqr(i)>a;
 writeln (i,' ('+r+')' );
 if A<>0 then Writeln('Внимание. число A не разбивается нацело!');
 readln
end.

[Horatii]

Большое спасибо !!!

[Stilet]

но там маленькая ошибочка - STR - это не функция, а процедура.

Ну и нужна она тут?

program Project5;
var i,a,d :integer;
    r   : string;
begin
 readln(a);
 i:=1;
 r:='';
 repeat
  d:=sqr(i);
  A:=A-d;
  write (d:5);
  inc(i);
 until sqr(i)>a;
 writeln;readln;
end.

[JUDAS]

но там маленькая ошибочка - STR - это не функция, а процедура.

Серж, спорить не стану !
Все паскалевские задачи отлаживаю в 7-м делфи в консольном режиме )))
Знаю что в Паскале нет IntToSTr )))