Суть программы в том, чтобы пройти цикл, в условии которого спрашивается, является ли разность переменных n и s больше нуля. В этом цикле каждый раз происходит увеличение s на 20, а n на 15. Давай пройдем этот цикл:
s = 127, n = 250
n - s = 250 - 127 > 0, проходим цикл
s = 127 + 20 = 147, n = 250 + 15 = 265
Так цикл будет повторяться до тех пор (а это событие произойдёт, поскольку к s прибавляется больше, чем к n, так что переменная s в какой-то момент перегонит n), пока s не станет больше n - тогда разность s и n будет меньше нуля и цикл уже не выполнится. Я так понял, нужно вывести s, при котором цикл уже работать не будет. Здесь ничего не остаётся, кроме как считать. Я этого здесь делать не буду, потому что всё даже не поместится. Я лишь выполнил эту программу. Ответом будет число s = 627. Прошло всего 25 циклов.
Ответ: 1200000 Байт
Объяснение:
N=2^I
Модель RGB хранит в себе три цвета которые могут принимать значения от [0..255]
В итоге имеем палитру: 256*256*256=16777216 цветов
16777216=2^24
V=M*N*I
V= 1000*400*24=9600000 Бит
9600000 Бит = 1200000 байт
Колонка "№" - заполняется автоматически происходит инкремент предыдущего значения
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=ReadReal;
var y:real;
if x<5 then y:=1/(x-5)
else
if x=5 then y:=45
else y:=x**3-20;
Writeln(y)
end.
<u>Пример</u>
12.543
1953.350667007