Var
x,y:real;
begin
Write('Введите координаты точки: ');
Read(x,y);
if (y>=-x*x) and (y>=-x-2) and (x<=0) then Writeln('Входит')
else Writeln('Не входит')
end.
Тестовое решение
Введите координаты точки: -1 -0.5
Входит
1. Когда знаешь не хуже учителя, а считать символы лень
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var a:='моя Беларусь'.ToWords;
Writeln(a[0]+' родина '+a[1])
end.
2. Когда знаешь кое-что в Паскале, а считать символы лень
const
s='моя Беларусь';
var
i:integer;
begin
i:=Pos(' ',s);
Writeln(Copy(s,1,i),'родина ',Copy(s,i+1,Length(s)-i))
end.
3. Когда не знаешь почти ничего
const
s='моя Беларусь';
begin
Writeln(Copy(s,1,4),'родина ',Copy(s,5,8))
end.
Var a,b,c,i,sum,cp:integer;
begin
sum:=0;
cp:=0;
Randomize;
writeln('Посчитайте сложение:');
while i<10 do
begin
a:=random(40)+10;
b:=random(60)+10;
sum:=a+b;
write('Сколько будет ',a,'+',b,'= ');
read(c);
if c=sum then begin
cp:=cp+1;
writeln('Молодец!');
end else writeln('Неправильно');
i:=i+1;
end;
writeln('Всего правильных ответов ',cp);
write('Оценка:');
if (cp<=4) then write('Очень плохо (2)') else
if (cp>=5) and (cp<=6) then write('Удовлетворительно (3)') else
if (cp>=7) and (cp<=8) then write('Хорошо (4)') else
if (cp>=9) then write('Отлично! (5)');
end.<span>
</span>
Var
chisl, znam, multi: real;
begin
multi := 1;
chisl := 1;
znam := 2;
for var k := 1 to 9 do
begin
multi *= chisl / znam;
chisl += 1;
znam += 1;
end;
write(multi);
end.