Question

Визначте значення всіх змінних у результаті їх виконання.

а) x:=0; y:=1;

while y<4 do

begin

x:=x+y;

y:=y+1

end;

б) x:=0; i:=1;

repeat

i:=i+1;

x:=x+1/i;

until i>6;