19 пожалуйста как надо сделать. ....

19 пожалуйста как надо сделать. ....
Гость
Ответ(ы) на вопрос:
Гость
ОТДЕЛ Задание+; ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём; ПЕР   x, y, R: ВЕЩ; УКАЗ   x := Приём.Число();   Вывод.Цепь("^");   y := Приём.Число();   R := 123;   ЕСЛИ x * x + y * y <= R * R ТО     Вывод.Цепь("^Точка попадает.")   ИНАЧЕ     Вывод.Цепь("^Точка не попадает.")   КОН КОН Задание.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы