Infiniti_Inter

VII/3

May 12th, 2021
481
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. program VII;//название
  3. var//объявление переменных
  4. x, a:real;//вводимый аргумент x и параметр a
  5. begin
  6.     Write('Введите x:');
  7.     ReadLN(x);
  8.     Write('Введите a:');
  9.     ReadLN(a);
  10.     //проверка и вывод в соотвествии с условием
  11.     if (x < a) then
  12.         WriteLN('y = ', 0)
  13.     else
  14.         if (x = a) then
  15.             WriteLN('y = ', 1)
  16.         else
  17.             WriteLN('y = ', (x-a)/(x+a));
  18. end.
  19.  
  20.  
RAW Paste Data