Question

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

Answer 1

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...ОтделыОбмен", Приём;

ПЕР
  x, y, R: ВЕЩ;

УКАЗ
  x := Приём.Число();
  Вывод.Цепь("^");
  y := Приём.Число();
  R := 123;
  ЕСЛИ x * x + y * y <= R * R ТО
    Вывод.Цепь("^Точка попадает.")
  ИНАЧЕ
    Вывод.Цепь("^Точка не попадает.")
  КОН

КОН Задание.

Answer 2

1. в заданном тексте заменить все буквы "а" на букву "о".

Answer 3

Ну оформи как задание, там напишу.

Answer 4

2. дано строка S и число N. преобразовать строку S в строку длины N следующим образом : если длина строки S больше N , то от бросить первые символы, если длина строки S меньше N , то все начала добавить символы "." ( точка).

Answer 5

?.