Question

4. var s, n: integer;
begin
s := 80;
n := 0;
while s + n < 150 do
begin
s := s − 5;
n := n + 15;
end;
writeln(n)
end.

ПОМОГИТЕ, ПОЖАЛУЙСТА!!!СРОЧНО!
ЖЕЛАТЕЛЬНО С РЕШЕНИЕМ!У меня в профите есть такие же задания, если можете решить их тоже пж!)

Answer 1

Задача аналогична прошлой, ну давайте считать.

Изначально, s = 80, n = 0

Затем у нас включается цикл, который выполняется пока s + n < 150.

Тут давайте попробуем решать не простым перебором, а более рационально.

Изначально, сумма s и n равна 80, а каждый проход наша сумма будет увеличиваться на 10 (-5 + 15).

т.к мы знаем, что цикл выполняется пока сумма меньше 150, то можем составить простое уравнение:

80 + 10 * x = 150

Найдём x

70 = 10*x

x = 7

Но x это не ответ, а количество выполненных итераций в цикле, так как на экран выводится значение n, то мы его и посчитаем. Каждый раз прибавлялось 15, а значит, чтобы найти n нужно 7 умножить на 15, 7 * 15 = 105

Ответ: n = 105