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. 

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

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