Advertisement
193030

1.3 Segments in triangle

Sep 23rd, 2019
175
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.34 KB | None | 0 0
  1. program otsechki; // v triygylnik
  2. var
  3. a : real;
  4. b: real;
  5. c: real;
  6. begin
  7.   writeln ('Enter a: ');
  8.   readln(a);
  9.    writeln ('Enter b: ');
  10.   readln(b);
  11.    writeln ('Enter c: ');
  12.   readln(c);
  13.   if(a+b>c) and(a+c>b) and (b+c>a) then
  14.     begin
  15.       writeln('True');
  16.     end
  17.   else
  18.     begin
  19.       writeln('False');
  20.     end
  21. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement