3.
Var X,Y:real;
Begin
Write('X = ');
ReadLn(X);
Write('Y = ');
ReadLn(Y);
if (X>=-2)and(Y<=-X)and(X*X+Y*Y>=4) then WriteLn('Попал')
else WriteLn('Мимо')
End.
5.
Var X,Y:real;
Begin
Write('X = ');
ReadLn(X);
Write('Y = ');
ReadLn(Y);
if (Y<=0)and(X>=0)and(Y>=X/2 -1) then Write('Попал')
else WriteLn('Мимо')
End.
Алгоритм содержит цикл с предусловием. Цикл выполняется до тех пор, пока b≠5. Начальное значение b=10, а в теле цикла b уменьшается каждый раз на 1, т.е. цикл будет выполнен для b=10,9,8,7,6 - пять раз.
В цикле переменная с накапливает сумму значений b, следовательно по окончании цикла с = 10+9+8+7+6 = 40
Ответ: 40
Получатся числа 16 15 5 4 3 1
Сумма=44
Ответ 512,то есть 2степени 9равно 512,это так решается
Диаметр= радиус*2 т.к. радиус-это половина диаметра