Я думаю надо обратиться к работнику по починки электронных преборов
Вроде 200
всего символов 9 это означает что один символ 4 бита (2^3 (8) <9 <2 4 (9))
длина пароля 15
4 * 15 . =60 бит = 8 байт ( 60 /8 округляем в большую сторону)
25 * 8 =200
Var
x,y:real;
begin
Write('Введите координаты x и y точки: '); Readln(x,y);
Write('Точка с указанными координатами ');
if not ((y<=x) and (x<=2) and ((sqr(x)+sqr(y))>=4) and (y>=0)) then
Write('не ');
Writeln('принадлежит заштрихованной области.')
end.
<em><u>Примеры выполнения программы:</u></em>
Введите координаты x и y точки: 1.9 2.1
Точка с указанными координатами не принадлежит заштрихованной области.
Введите координаты x и y точки: 1.9 1.82
Точка с указанными координатами принадлежит заштрихованной области.
Введите координаты x и y точки: 1 -3
Точка с указанными координатами не принадлежит заштрихованной области.
быстро, удобно, не тратишь бумагу)))) , конверта не надо и тд