Дана программа на языке 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. 

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

Сделаем трассировку:x = 128 z = 1;i=0z = 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