Дана программа ** языке Pascal:var z, x: real;i: integer; begin; z=1;i=0;x=128; repeat z:...

Question

Дана программа на языке Pascal:
var z, x: real;
i: integer;
begin;
z=1;
i=0;
x=128;
repeat
z: = z + x/2;
i:= i+1;
x:=x/2;
intil (i=4);
write (z);
end.

Какой ответ будет выведен на экран? - вопрос

Comments

Что сделать? Что за программа?

---

var z, x: real$

---

i: integer; begin; z=1;i=0;x=128; repeat z: = z + x/2; i:= i+1; x:=x/2; intil (i=4); write (z); end.

Answer 1

Сделаем трассировку:
x = 128 z = 1;i=0
z = 1 + 64; x = 128/2; i = 1;
z = 65 + 32; x = 64/2; i = 2;
z = 97 + 16; x = 32/2; i = 3;
z = 113 + 8; x = 16/2 ; i = 4
Конец
z = 121