Question

Определите, что будет напечатано в результате выполнения программы:

var n, s: integer;
begin
n := 4;
s := 0;
while n <= 13 do
begin
s := s + 15;
n := n + 1
end;
write(s)
end.

Answer 1

n пробегает от 4 до 13 включительно с шагом 1, то есть ровно 10 раз

в каждой итерации s увеличивается на 15

 

в результате в конце цикла s будет равно 150