Question

3. var s, n: integer;
begin
s := 0;
n := 40;
while s + n < 100 do
begin
s := s + 25;
n := n − 5;
end;
writeln(s)
end.

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

Answer 1

Похожая на прошлую задачу программа, только теперь у нас проверяется другое условие (s+n < 100), что вроде как считается более сложным. Но здесь ничего сложного нет, здесь проще всего сделать своеобразную трассировочную таблицу.

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

Пойдем по порядку, 1 итерация, s = 25, n = 35, 25 + 35 = 60, 60 у нас меньше 100, значит цикл выполняется еще раз.

2 итерация, s = 50, n = 30, 50 + 30 = 80, 80 меньше 100, цикл снова выполняется.

3 итерация, s = 75, n = 25, 75 + 25 = 100, 100 не меньше 100, следовательно, цикл останавливается, s у нас равна 75, это и будет нашим ответом.

Ответ: s = 75