3. var s, n: integer;begins := 0;n := 40;while s + n < 100 dobegins := s + 25;n := n − 5;end;writeln(s)end. посчитайте, ЖЕЛАТЕЛЬНО С РЕШЕНИЕМ У меня в профите есть такие же задания, если можете решить их тоже пж )

Похожая на прошлую задачу программа, только теперь у нас проверяется другое условие (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