Advertisement
Infiniti_Inter

VI/18

May 12th, 2021
980
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.33 KB | None | 0 0
  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.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement