Определите что будет напечатано после работы следующего фрагмента программы: var n,s: integer; begin n := 0 s := 0

Question

Определите что будет напечатано после работы следующего фрагмента программы: var n,s: integer; begin n := 0 s := 0

Даниил Мыслитель (6672), на голосовании 1 неделю назад

while s <= 249 do
begin
s := s + 24;
n := n + 10
end;
write(n)
end.

Answer 1

Этансу Кадиол Мудрец (10160) 1 месяц назад

От 10 до 100

Этансу КадиолМудрец (10160) 1 месяц назад

10
20
30
.
.
.

ДаниилМыслитель (6672) 1 месяц назад

ответ 110, но нужно рассписать :(

Даниил Мыслитель (6672) Даниил, расписать*

Этансу КадиолМудрец (10160) 1 месяц назад

Тут надо чуть чуть знать английский: write - писать (ну для компа "выводить") while - пока (по крайней мере тут такое значение)
А дальше как нефиг делать, только понять какой этап за каким следует: тут сперва проверяется s чтоб не быть больше 249, а уже потом к нему добавляют 24 и так получается, что в 1-м цикле s=0<249 значит теперь s=0+24, n=0+10 вывод: 10
2-й цикл s=24<249, значит теперь s=48, n=20 вывод: 20
И т.д. до s=240<249, значит теперь s=264, n=110 вывод: 110
s=264>249, значит условия не выполнены и цикл закончен