Дано целое положительное число A. Требуется вывести такое максимальное возможное натуральное нечетное число K, при котором 1+(1+3)+(1+3+5)+...+(1+3+...K) не превышает A
В Паскале

ответ: PascalABC.Net

Program Z;

var a,k,s,p,x:integer;

BEGIN

           write('Задайте значение A: ');

           read(a);

           k:=1; s:=1;

           while s<=a do

           begin p:=0; x:=1; k:=k+2;

                    while x<=k do

                    begin p:=p+x;

                             x:=x+2;

                    end;

                    s:=s+p;

           end;

           write('Значение k равно ',k-2);

END.

Объяснение: