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.
ПОМОГИТЕ, ПОЖАЛУЙСТА!!!СРОЧНО!
ЖЕЛАТЕЛЬНО С РЕШЕНИЕМ!У меня в профите есть такие же задания, если можете решить их тоже пж!)
begin
s := 0;
n := 40;
while s + n < 100 do
begin
s := s + 25;
n := n − 5;
end;
writeln(s)
end.
ПОМОГИТЕ, ПОЖАЛУЙСТА!!!СРОЧНО!
ЖЕЛАТЕЛЬНО С РЕШЕНИЕМ!У меня в профите есть такие же задания, если можете решить их тоже пж!)
More Questions From This User See All
Answers & Comments
Похожая на прошлую задачу программа, только теперь у нас проверяется другое условие (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