Var x,y: real;
begin
write('задайте x и y ');
readln(x,y);
if (x>0) and (y>0) then
   if ((x>3) and (x<6) and (y<Sqrt(36-x*x))) or
   ((x<3) and ((y>3-x) and (y<Sqrt(36-x*x)))) or
   ((y>3) and (y<6) and (x<Sqrt(36-y*y))) or
((y<3) and (((3-y)<x) and (x<Sqrt(36-y*y)))) then
   writeln('точка лежит в области')
else
writeln('точка не лежит в области')
else   writeln('координаты должны быть положительными');
<span>end.

</span>

0 0

4 года назад

Помогите пожалуйста написать программу которая создаёт 2 массива целых чисел случайным образом

LisaD

//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var (a,b):=(ArrRandom(10,-100,100),ArrRandom(10,-100,100));
a.Println; b.Println;
end.

0 0

3 года назад

Помогите срочняк вот ваще . Жизнь или

julia123 [7]

Картинка с ответами в приложении

0 0

4 года назад

В 8 классе в понедельник и пятницу- 5 уроков,во вторник и четверг-6 уроков, а в среду-7 уроков.Введите номер дня недели.Выведите

Elena-Valery [11.7K]

Понедельник 1-5
вторник 2-6
среда 3-7
четверг 4-6
пятница 5-5

0 0

4 года назад