Sub Main() Dim x As Single Dim y As Single
Console.WriteLine("Введите координаты точки x ") x = Console.ReadLine() Console.WriteLine("Введите координаты точки y ") y = Console.ReadLine() If (x <= 4 And y <= 4 And y >= 4 - x) Or (y <= -4 - x And y >= -4 And x >= -4) Then Console.WriteLine("Точка принадлежит области") Else Console.WriteLine("Точка не принадлежит области") End If Console.ReadKey() End Sub
5 разрезов ну почему обязательно 20 символов? ну с начала отрезаешь и конец вот те 1 см потом так же вот те 2 см и 3 см тоже так
Uses crt;
var x:integer;
y:real;
begin
read (x);
y:=1/sqr (x)-13*x/(sqr (x)-36)-18;
write (y);
<span>end.</span>