С клавиатуры вводится число n найти наивысшую возможность ряда последующего вида

С клавиатуры вводится число n отыскать наивысшую возможность ряда последующего вида 1^2 2^2 3^3 сумма данного ряда не обязана превосходить введенного N. Надобно сделать в program. pas ПОМОГИТЕ ПОЖАЛУЙСТА

Вован Порожецкий 2019-02-11 05:09:14

var sum:real; n,i:integer;begin Write('n=');Readln(n); sum:=1; Write('1^2 '); For i:=2 to round(sqrt(n)) do if sum+Power(i,i) Writeln; Writeln('Сумма: ',sum);end.