Question

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

var x, s, k: integer;
begin s:=0;
x:=-100; k:=0;
while k < 25 do begin
X:=x+8;
S:=s+x;
k:=k+1 end;
writeln(s);
end.


Очень прошу подробный ответ

​

Answer 1

Ответ:

Вывод по итогу будет, s=100

Объяснение:

Идем с начала

Объявляем переменные x,s,k в типе целочисленный

Открывам блок begin'ом, пишем в переменную s значение 0.

Записываем в переменную x значение -100, а в k значение 0

цикл с условием пока k меньше 25, совершаем блок ниже

в блоке который идет в цикле, если условие в нем истинное, то есть, k меньше 25, в переменную x мы записываем значение, текущего x, по началу мы его обнулили(записали в него 0) то есть, 0+8, в x будет значение 8, далее записываем в переменную s значение, s по началу у нас обнулен(в него мы записали 0), мы к нему записываем значение из переменной x, а она у нас равняется 8, то есть s = 8, далее записываем в переменную k, по началу берем значение из k, все тоже самое он у нас обнулен(мы в него записали ноль), прибавляем к нему один, k=1, заканчиваем блок.

Далее возвращаемся снова к условию цикла, к меньше 25? да, оно меньше 25, тк в конце блока по прошлому обходу мы записали в него один, и снова мы повторяем все действия в блоке, пока k не будет больше 25.

В x мы записываем значение x(он у нас 8) и к нему добавляем 8, далее записываем значение в s(он у нас тоже 8), к нему мы прибавляем значение из переменной x, она у нас ровна 16, ну и записываем снова в k значение, k у нас равняется одному, мы к нему записываем еще один, и так мы повторяем эти все действия блока до того момента, пока условие в цикле не будет истинным, другими словами, пока k не будет больше 25.