Infiniti_Inter

VI/18

May 12th, 2021
465
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. program VI;//название
  3. var//объявление переменных
  4. x:real;//вводимый аргумент x
  5. begin
  6.     ReadLN(x);
  7.     WriteLN(sqrt(x * x + 1) - sqrt(x * x + 5));//подкоренные выражения всегда больше нуля, поэтому просто вывод функции
  8. end.
  9.  
  10.  
RAW Paste Data