Напишите программу на языке Pascal для последующей задачи: Найти число n,

Напишите программку на языке Pascal для последующей задачки: Определить число n, при котором сумма квадратов ряда чисел 1, 2, , n не превысит некого целого числа K, т.е. число K вводится с клавиатуры

Задать свой вопрос
1 ответ
//программка обусловит наибольшее n
program qwerty;
var a, k, sum:integer;
begin
readln(k);
a:=1;
while((sum+a*a)lt;=k) do begin
sum:=sum+a*a;
a:=a+1;
end;
writeln(a-1);
end.
Местескина Виолетта
А что означает sum и какое у него значение?
Степа
sum- это сумма квадратов ряда чисел от 1 до n
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт