Определите, что будет напечатано в результате выполнения следующей программы:
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.
Очень прошу подробный ответ
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.
Очень прошу подробный ответ
More Questions From This User See All
Answers & Comments
Ответ:
Вывод по итогу будет, 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.