Дано целое положительное число 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.

Объяснение:

Информация, которую мы получаем из окружающего мира, поступает к нам в виде условных знаков или сигналов самой разной физической природы.

Это свет, звук, запах, касания; это слова, значки, символы, жесты и движения.

Для того чтобы произошла передача информации, мы должны не только принять сигнал от кого-то, но и расшифровать его.

Так, услышав звонок будильника, человек понимает, что пришло время телефонный звонок — кому-то нужно с нами поговорить;

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

Для правильного восприятия разных сигналов требуется разработка кода, или кодирование.

Код — это система условных знаков для представления информации.

Кодирование — это перевод информации в удобную для передачи, обработки или хранения форму с некоторого кода.

Этот навык у программистов прокачан в оба конца — в сторону компьютера и в сторону человека. С одной стороны, работа программиста заключается в том, чтобы составлять понятные инструкции живым и неживым сущностям — человеку и машине. Это умение объяснять всё доступным логическим языком здорово в жизни — как в общении, так и в переписке. С другой стороны, разработчик также должен уметь понимать язык людей и машин. Этот навык делает его хорошим слушателем и читателем, который стремится вникнуть в суть разговора и текста, отсекая при этом всё лишнее.