Var q,i,s:integer;
begin
readln(q);
s:=0;
i:=0;
while s<q do
begin
i:=i+1;
s:=s+i;
end;
if s=q then writeln('Страница = ',i+1)
else writeln('Ошибка ввода');
end.
Пример:
5
<span>Страница = 6</span>
<span>Термином "информатика" обозначают совокупность дисциплин, изучающих свойства информации, а также способы представления, накопления, обработки и передачи информации с помощью технических средств.</span> На Западе применяют другой
термин «computer science» – компьютерная наука.
Ядро информатики – информационная
технология как совокупность конкретных технических и программных средств, с
помощью которых мы выполняем разнообразные операции по обработке информации во
всех сферах нашей жизни и деятельности.Иногда <u /><em>информационной технологией</em><span> называют компьютерной технологией или даже прикладной информатикой.
</span>Центральное место в ПРИКЛАДНОЙ ИНФОРМАТИКЕ занимает <em>компьютер</em> (от английского слова COMPUTE - вычислять) - техническое устройство для обработки информации. Его также часто называют <em>электронной вычислительной машиной</em> (ЭВМ<span>).
</span>В школьном курсе информатики вы будете изучать <u>ОСНОВЫ СОВРЕМЕННОЙ ИНФОРМАЦИОННОЙ ТЕХНОЛОГИИ.</u>
Познакомьтесь с принципами работы программно-технических с редакторами - PAINTBRUSH, WORD, EXCEL.
Для начала посчитаем, сколько бит информации было передано:
2 минуты и 45 секунд = 165 секунд
165 с * 128000 бит/с = 21120000 бит
Теперь вспомним, что такое частота дискретизация и уровни квантования. Дело в том, что аудио сигнал - это такая прикольная сложная синусоида. Чтобы записать сигнал в цифровом виде, каждую секунду сигнала как бы делят на промежутки (количество этих промежутков в секунде и есть частота дискретизации). Для каждого из этих промежутков записывается что-то вроде среднего значения высоты. Количество возможных значений - количество уровней квантования.
Но это так - если говорить очень упрощённо. Подробнее прочитайте в своём учебнике информатики.
Итак - у нас 256 уровней квантования. Значит каждое из значений можно записать 8 битами.
И на секунду у нас приходится 22000 таких записей.
То есть каждая секунда записи у нас кодируется 22000 * 8 = 176000 битами.
<span>21120000 / 176000 = 120 секунд.</span>
Логика такая:
1) Число 157 - это суммы 15 и 7 в порядке убывания, т.к. 1 и 57 не подойдут в виду условий задачи.
2) Пусть наименьшее число abc, тогда желательно b+c = 15, а a+b = 7.
Подберем: чтобы цифра b в нашем числе было наименьшей, цифра c должна взять на себя наибольшее значение -> 9. Тогда b = 6.
Итого: a69.
a будет 1, т.к. 1+6 = 7.
Таким числом является 169.
Проверим: 1+6 = 7. 6+9 = 15. В порядке убывания получается 157.
Я не стану выбирать С++ - это все же язык для решения совсем иных задач.
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(9, -50, 50);
a.Println;
a.Fill(t -> 1);
a.Println
end.
<h2>1 3 17 -6 -22 19 -1 -29 -20</h2><h2>1 1 1 1 1 1 1 1 1</h2>