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

  • Да се провери дали x принадлежи на интервала (a, b)
  • Да се провери дали x се намира извън интервала (a, b)
Публикувано в 10a с етикети . Постоянна връзка.

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

  1. krisizdravi95 каза:

    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 каза:
     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 каза:
     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.                            

Вашият коментар