Колко цифрено е числото

Публикувано на 09 декември, вторник от Данаил

Напишете програма, която позволява да се въведе число и проверява дали то едноцифрено, двуцифрено или трицифрено.

Публикувано в 10а, 10б с етикети . Постоянна връзка.

16 Responses to Колко цифрено е числото

  1. Simona Dimitrowa каза:
    10 декември, сряда в 08:15 
    program Project1;
var
  chislo:integer;
  polojitelno_ednocifreno: boolean;
  otricatelno_ednocifreno: boolean;
  polojitelno_dvucifreno: boolean;
  otricatelno_dvucifreno: boolean;
  polojitelno_tricifreno: boolean;
  otricatelno_tricifreno: boolean;
begin
  WriteLn ( 'Vuvedete chislo');
  ReadLn ( chislo);
  polojitelno_ednocifreno:= (chislo>=1)and(chislo<=9);
  otricatelno_ednocifreno:= (chislo>=-9)and(chislo<=-1);
   polojitelno_dvucifreno:= (chislo>=10)and(chislo<=99);
  otricatelno_dvucifreno:= (chislo>=-99)and(chislo<=-10);
   polojitelno_tricifreno:= (chislo>=100)and(chislo<=999);
  otricatelno_tricifreno:= (chislo>=-999)and(chislo<=-100);
  WriteLn('Chisloto e ednocifreno:',polojitelno_ednocifreno or otricatelno_ednocifreno);
  WriteLn('Chisloto e dvucifreno:',polojitelno_dvucifreno or otricatelno_dvucifreno);
  WriteLn('Chisloto e tricifreno:',polojitelno_tricifreno or otricatelno_tricifreno);
  ReadLn;
end.
  2. Габи каза:
    10 декември, сряда в 15:49 
    program ProjectG;
var
  chislo:integer;
  polojitelno_ednocifreno: boolean;
  otricatelno_ednocifreno: boolean;
  polojitelno_dvucifreno: boolean;
  otricatelno_dvucifreno: boolean;
  polojitelno_tricifreno: boolean;
  otricatelno_tricifreno: boolean;
begin
  WriteLn ( 'Vuvedete chislo');
  ReadLn ( chislo);
  polojitelno_ednocifreno:= (chislo>=1)and(chislo=-9)and(chislo=10)and(chislo=-99)and(chislo=100)and(chislo=-999)and(chislo<=-100);
  WriteLn('Chisloto e ednocifreno:',polojitelno_ednocifreno or otricatelno_ednocifreno);
  WriteLn('Chisloto e dvucifreno:',polojitelno_dvucifreno or otricatelno_dvucifreno);
  WriteLn('Chisloto e tricifreno:',polojitelno_tricifreno or otricatelno_tricifreno);
  ReadLn;
end.
  3. гери3 каза:
    11 декември, четвъртък в 10:23

    [/pascal] program ProjectD;
    var
    chislo:integer;
    polojitelno_ednocifreno:boolean;
    otricatelno_ednocifreno:boolean;
    polojitelno_dvucifreno:bloolean;
    otricatelno_dvucifreno:bloolean;
    polojitelno_tricifreno:bloolean;
    otricatelno_tricifreno:bloolean;
    begin
    WriteLn(‘Vuvedi chislo ‘ );
    ReadLn(chislo);
    polojitelno_ednocifreno:=
    (chislo>=1)and(chislo=-9)and(chislo=10)and(chislo=-99)and(chislo=100)and(chislo=-999)and(chislo<=-100);
    WriteLn(‘Chisloto e ednocifreno:’,polojitelno_ednocifreno or otricatelno_ednocifreno);
    WriteLn(‘Chisloto e dvucifreno:’,polojitelno_dvucifreno or otricatelno_dvucifreno);
    WriteLn(‘Chisloto e tricifreno:’,polojitelno_tricifreno or otricatelno_tricifreno);
    ReadLn;
    end. [/pascal]

  4. Евгения Георгиева каза:
    11 декември, четвъртък в 10:28

    program Project1;
    Var
    chislo:integer;
    ednocifreno:boolean;
    dvucifreno:boolean;
    tricifreno:boolean;
    begin
    Write ( ‘Vavedete chislo:’ ) ;
    ReadLn (chislo);
    ednocifreno:= (chislo9) and (chislo99) and (chislo<1000);
    WriteLn ( 'Dali e tricifreno:',tricifreno);
    ReadLn;
    end.

  5. Veselina каза:
    11 декември, четвъртък в 10:43 
     program Project1;
var
  ednocifreno:boolean;
  dvucifreno:boolean;
  tricifreno:boolean;
  chislo:integer;
begin
  Write (' Vavedete chislo: ');
  ReadLn (chislo);
  ednocifreno:=(chislo<=9);
  dvucifreno:=(chislo>=10) and (chislo<=99);
  tricifreno:=(chislo>=100) and (chislo<=999);
  WriteLn ('Vavedenoto chislo e ednocifreno:', ednocifreno);
  WriteLn ('Vavedenoto chislo e dvucifreno:',dvucifreno);
  WriteLn ('Vavedenoto chislo e tricifreno:', tricifreno);
  ReadLn;
end.
  6. гери3 каза:
    11 декември, четвъртък в 10:44 
    program ProjectD;
var
chislo:integer;
polojitelno_ednocifreno:boolean;
otricatelno_ednocifreno:boolean;
polojitelno_dvucifreno:boolean;
otricatelno_dvucifreno:boolean;
polojitelno_tricifreno:boolean;
otricatelno_tricifreno:boolean;
begin
WriteLn ('Vuvedi chislo ');
ReadLn(chislo);
polojitelno_ednocifreno:=(chislo>=1) and (chislo<=9);
otricatelno_ednocifreno:=(chislo>=-9) and (chislo<=-1);
WriteLn('Chisloto e ednocifreno:',polojitelno_ednocifreno or otricatelno_ednocifreno);
WriteLn('Chisloto e dvucifreno:',polojitelno_dvucifreno or otricatelno_dvucifreno);
WriteLn('Chisloto e tricifreno:',polojitelno_tricifreno or otricatelno_tricifreno);
ReadLn;
end.
  7. xBlago каза:
    11 декември, четвъртък в 10:47 
    program project1;
Var
chislo:integer;
ednocifreno:boolean;
dvucifreno:boolean;
tricifreno:boolean;
begin
  Write ('Vavedete chislo: ');
  ReadLn(chislo);
  ednocifreno:= (chislo<=9);
  WriteLn('Dali e ednocifreno: ',ednocifreno);
  dvucifreno:= (chislo>=10) and (chislo<=99);
  WriteLn('Dali e dvucifreno: ',dvucifreno);
  tricifreno:= (chislo>=100) and (chislo<1000);
  WriteLn('Dali e tricifreno: ',tricifreno);
  Readln;
  end.
  8. verii каза:
    11 декември, четвъртък в 10:49 
    program project1;
Var
  chislo:integer;
  ednocifreno:boolean;
  dvucifreno:boolean;
  tricifreno:boolean;
  begin
    Write('Vavedete chislo:');
    ReadLn (chislo);
    ednocifreno:=(chislo<=9);
    Writeln('dali e ednocifreno: ' ,ednocifreno);
    dvucifreno:=(chislo<=10) and (chislo<=99);
    Writeln ('dali e dvucifreno: ',dvucifreno);
    tricifreno:= (chislo>100) and (chislo<=1000);
    Writeln('dali e tricifreno: ' , tricifreno);
    ReadLn;
    end.
  9. andriyanova каза:
    17 декември, сряда в 11:30 
    program project1;
var
 chislo: integer;
dvucifreno: boolean;
ednocifreno: boolean;
tricifreno: boolean;
begin
   Write ('Vavedete chislo:');
Readln (chislo);
dvucifreno:= (chislo>=10)and(chislo<=99);
ednocifreno:= (chislo>=0)and(chislo<=9);
tricifreno:= (chislo>=99)and(chislo<=999);
WriteLn ('Chisloto e dvucifreno:', dvucifreno);
WriteLn ('Chisloto e ednocifreno:', ednocifreno);
WriteLn ('Chisloto e tricifreno:', tricifreno);
ReadLn;
end.
  10. maggieap каза:
    17 декември, сряда в 11:31 
    program Project1;
var
chislo: integer;
ednocifreno: boolean;
dvucifreno: boolean;
tricifreno: boolean;
begin
  Write ('Vavedete choslo:') ;
  ReadLn (chislo) ;
  ednocifreno:= (chislo>1) and (chislo<9);
  dvucifreno:= (chislo>10) and (chislo<99);
  tricifreno:= (chislo>100) and (chislo<999);
  WriteLn ('Chisloto e ednocifreno:', ednocifreno);
  WriteLn ('Chisloto e dvucifreno:', dvucifreno);
  WriteLn ('Chisloto e tricifreno:', tricifreno);
  ReadLn;
end.
  11. claudiavesi каза:
    17 декември, сряда в 11:32

    program project1;
    var
    chislo : integer;
    dvucifreno:boolean;
    ednocifreno:boolean;
    tricifreno:boolean;
    begin
    Write (‘Vavedete chislo : ‘) ;
    Readln (chislo) ;
    dvucifreno := ( chislo>=10)and(chislo=0)and(chislo=99)and(chislo<=999);
    WriteLn (chisloto e dvucifreno:', dvucifreno);
    WriteLn (chisloto e ednocifreno:',ednocifreno);
    WriteLn (chisloto e tricifreno:', tricifreno);
    ReadLn;
    end.

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