Var x,y:real;
begin
write('x, y:');
readln(x,y);
if (y<=-0.75*x*x+5)and(y>=x)and(y>=-x)
then writeln('Точка принадлежит заштрихованной области')
else writeln('Точка не принадлежит заштрихованной области');
end.
Пример:
<span>x, y:
2 1
Точка не принадлежит заштрихованной области</span>
uses
SysUtils;
var
n,m,i:integer;
begin
readln(n);
m:=0;
for i := 1 to n-1 do
if m > n then break else
if (n mod i = 0) then m:=m+i;
if m=n then writeln('Yes') else
writeln('No');
end.
Итак:
На один символ было 16 бит, стало 8, таким образом:
8x=16x-160, отсюда:
<span>x=20 символов
Ответ: 20 символов</span>