Проверка за интервал

3 Responses to Проверка за интервал

1. krisizdravi95 каза:

   21 февруари, вторник в 11:32

   Proverka dali e izvun intervala

   program Project1;
   var x,a,b:integer;
   begin
   Write('Vuvedete chislo x= ');
   Readln(x);
   Write('Vuvedete interval ');
   Readln(a,b);
   if ((x<=a) or (x>=b)) then Writeln('Chisloto e izvun intervala')
   else writeln('Chisloto e v intervala');
   Readln;
   end.                    

   Влезте, за да отговорите
2. Violeta каза:

   08 март, четвъртък в 16:31

    program Project1;
   Var a,b:integer;
   x:integer;
   
   begin
   Write('Vavedete a i b ');
   ReadLn (a,b);
   Write('Vavedete x ');
   ReadLn(x);
   if (x>a) and (x<b) then
   WriteLn('V intervala e') else
   WriteLn (' Ne e v intervala ' );
   ReadLn;
   
   end.           

   Влезте, за да отговорите
3. Lubomir Dizela каза:

   12 март, понеделник в 14:03

    program Chisla;
      var
      a, b, x: integer;
   
   
   begin
   
   WriteLn('Vuvedete intervala (a i b):');
   ReadLn (a, b);
   WriteLn('Vuvedete izbranoto chislo');
   Readln(x);
   if (x>a) and (x<b) then WriteLn('Chisloto e v intervala')
   else WriteLn('Chisloto e izvun intervala');
   Readln;
   end.                            

   Влезте, за да отговорите