Получить таблицу функции y=x-sin2x-1 с шагом 0.5, 0≤x≤5, а также получить диаграмму к полученной функции Решить в Excel VBA

2/х + 2 + 1/х = 1

3/х + 2 = 1

3/х = -2

3 = -2х

-х = 1,5

х = -1,5

uses crt; var a,b,c,min: integer; beginwriteln('введи три числа: '); readln(a,b,c); min: =a; if b< min then min: =b; if c< min then min: =c; writeln('наименьшее из этих чисел:   ',min); readln; end.

uses crt; var

  a,b,c,min: integer; begin  writeln('введи три числа: ');   readln(a,b,c);   min: =a;   if b< min then min: =b;   if c< min then min: =c;   writeln('наименьшее из этих чисел:   ',min); end.