Определите, что будет напечатано в результате выполнения следующей программы:
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
Ответ:
100
Объяснение:
Изначально k = 0. Пока k меньше 25:
К x прибавляем 8 (было -100, стало -92), к s прибавляем x (было 0, стало -92), к k прибавляем 1 (было 0, стало 1).
Т.к. k всё ещё меньше 25 делаем тоже самое. К x прибавляем 8 (было -92, стало -84), к s прибавляем x (было -92, стало -176), к k прибавляем 1 ( было 1, стало 2) и т.д.
Основная проверка, как я понял, на то, знаете ли вы, что Pascal не чувствителен к регистру (т.е. не имеет значение, с заглавной буквы переменная иль с маленькой).