информатика. нужно написать программу на с++. ВАРИАНТ 4
дам

Решение:
Какой оператор цикла желательно использовать, если известно число повторений тела цикла?
repeat <оператор1, …>until <условие>
while <условие>do <оператор>
for <параметр>:= <начальное значение>to<конечное значение> do<оператор>
2. Используется оператор for i:= -10 to 10 do…
После завершения выполнения тела цикла i = 10
3. Цикл в фрагменте программы
p:=1;
repeat
p:=p*0.1
until p>0.1;
будет исполнен:
1 раз
2 раза
бесконечное число раз
0 раз
3 раза
4. Цикл в фрагменте программы
a:=1;
b:=1;
while a+b<8 do
begin
a:=a+1; b:=b+2
end;
выполнится:
0 раз
3 раза
2 раза
1 раз
бесконечное число раз

Объяснение:

function  IsBelong(x, y : real): boolean;

{Вс функция для проверки, принадлежит

ли точка (x; y) выделенной области}

begin

    IsBelong:= false;

    if (x > 0) then

       begin

       if (y <= 0) and  (y >= ln(x)) and (y >= -x -1) then

          IsBelong:= true;

       end

    else

        begin

         if (y >= 0) and  (x * x + y * y <= 9) and (y >= -x -1) then

            IsBelong:= true;

       end;

end;

var x, y: real; // Координаты точки

   mess: string;

begin

    {Считывание начальных значений}

    write('Input x: ');

    readln(x);

    write('Input y: ');

    readln(y);

    writeln();

    {Проверка принадлежности}

    if IsBelong(x,y) then mess := 'The point belongs to the area'

       else  mess := 'The point does not belong to the area';

    {Вывод сообщения}

    writeln(mess);

    readln();

end.