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

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

Задать свой вопрос
1 ответ
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт