Блог для маленьких школьников и их родителей
ШколаЛа

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

Автор:
Предмет: Информатика
Уровень: 5 - 9 класс

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

Ответов к вопросу: 1
  • katyk2019
    21.07.2024 | 12:25

    //программа определит максимальное n
    program qwerty;
    var a, k, sum:integer;
    begin
    readln(k);
    a:=1;
    while((sum+a*a)<=k) do begin
    sum:=sum+a*a;
    a:=a+1;
    end;
    writeln(a-1);
    end.

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.