SHARE
TWEET

Untitled

hidethecore Oct 12th, 2019 92 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program Uravnenie;
  2.  
  3. var a, b, c: integer;
  4. var D:real;
  5.  
  6. begin
  7.     write('Введите A: ');
  8.     read(a);
  9.     write('Введите B: ');
  10.     read(b);
  11.     write('Введите C: ');
  12.     read(c);
  13.    
  14.     D:=b*b-4*a*c;
  15.    
  16.     if D > 0 then
  17.     write('Уравнение имеет 2 решения')
  18.     else begin
  19.     if D = 0 then write('Уравнение имеет 1 решение')
  20.     else write('Уравнение не имеет решений');
  21.     end;
  22. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top