===== PascalABC.NET =====
begin
var (x, y) := ReadReal2('Введите X, Y:');
if (x * x + y * y <= 9) and (x * x + y * y >= 4) and
(x <= 0) and (y >= 0) or
(x * x + y * y <= 4) and (x >= 0) and (y <= 0) then
Writeln('Да')
else
Writeln('Нет')
end.
1) ложь
2) истина
3) ложь
4) истина
5) истина
6) ложь
7) истина
8) ложь
9) истина
Уголки:
использовать Чертежник
алг
нач
сместиться на вектор (1,3)
нц 5 раз
Угол
кц
кон
алг Угол
нач
опустить перо
сместиться на вектор (3,0)
сместиться на вектор (0,-3)
поднять перо
сместиться на вектор (-2,4)
кон
Квадраты:
использовать Чертежник
алг
нач
сместиться на вектор (1,4)
нц 3 раз
Квадрат
кц
сместиться на вектор (-10,-2)
нц 2 раз
Квадрат
кц
кон
алг Квадрат
нач
опустить перо
сместиться на вектор (0,3)
сместиться на вектор (3,0)
сместиться на вектор (0,-3)
сместиться на вектор (-3,0)
поднять перо
сместиться на вектор (4,0)
кон
Ромбы:
использовать Чертежник
алг
нач
сместиться на вектор (4,5)
опустить перо
сместиться на вектор (1,1)
сместиться на вектор (1,-1)
сместиться на вектор (-1,-1)
сместиться на вектор (-1,1)
поднять перо
сместиться на вектор (3,0)
опустить перо
сместиться на вектор (-2,-2)
сместиться на вектор (-2,2)
сместиться на вектор (2,2)
сместиться на вектор (2,-2)
поднять перо
сместиться на вектор (1,0)
опустить перо
сместиться на вектор (-3,-3)
сместиться на вектор (-3,3)
сместиться на вектор (3,3)
сместиться на вектор (3,-3)
поднять перо
сместиться на вектор (1,0)
опустить перо
сместиться на вектор (-4,-4)
сместиться на вектор (-4,4)
сместиться на вектор (4,4)
сместиться на вектор (4,-4)
кон
