Var
x: real;
begin
readln(x);
if x=0 then exit;
write(1/x);
end.
Не понимаю, зачем тут repeat
Var
x,y:real;
begin
write('x=');
readln(x);
write('y=');
readln(y);
if (sqr(x)+sqr(y)<=1) then
if (x<0) and (y>0) then
writeln('no')
else
writeln('yes')
else
writeln('no');
end.<span>
</span>
Надо нажать на кнопку копировать и затем перевернуть
1) 65536 = 2¹⁶ 16=2⁴
до преобразования для кодирования одной точки требовалось 16 бит, а после преобразования - 4 бита
16/4 = 4
Ответ: в 4 раза уменьшился объем используемой памяти