Program XY5;
var
x,y: real;
begin
var s:='**** -=Alphaeus=- ****';
for var k:=1 to 22 do begin write(s[k]); sleep(47) end;
writeln;writeln;
writeln('Введите координаты точки:');
write('X='); readln(x);
write('Y='); readln(y);
if ((x>=0) and (y>=0) and (x*x+y*y<=16)) or ((x>=0) and (y<=0) and (x*x+y*y<=25)) then
writeln('TRUE (то есть точка (',x,',',y,') попадает в заштрихованную область) ')
else
writeln('FALSE (то есть точка (',x,',',y,') HE попадает в заштрихованную область) ');
end.
1. 99
2. 5
3. 2
_____________________________________________________________
Используем закон де Моргана и закон двойного отрицания.
Решение во вложении.
Program имя;
Begin
Writeln(' * * * * *'');
Writeln(' * *');
Writeln(' ********');
end.