Проверка за валидна оценка

Да се въведе число и да се провери дали е валидна оценка. Ако не е, да се изведе подходящо съобщение. Ако оценката е валидна, според стойността и да се изведе интересно съобщение – например „Браво, направо ги разби!“ или „Яко си загазил!“ :-)

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

14 коментара по Проверка за валидна оценка

  1. marina.xb каза:
    program project1;
    var
       ocenka: integer;
    
        begin
      Write('Vavedete ocenka:');
        ReadLn (ocenka);
        if (ocenka>=2) and (ocenka<=6)
        then
          WriteLn ('Tova e validna ocenka')
          else WriteLn ('Ne e validna ocenka');
        ReadLn;
    
        end.
    
  2. Евгения Георгиева каза:

    program project1;
    var
    chislo:integer;
    begin
    Write ( ‘Vavedete chislo i proverete dali e validna ocenka’);
    Readln (chislo);
    if ((chislo>=2) and (chislo<=6))then
    Write ( ' Ocenkata e validna')
    else Write ( 'Ocenkata ne e valedna ');
    Readln;

    end.

  3. Veselina каза:
    program Project1;
    var
    chislo:integer;
    begin
      WriteLn('Vavedete chislo:');
      ReadLn(chislo);
      if((chislo>=2)and(chislo<=6)) then
         WriteLn('Ocenkata e validna.')
      else WriteLn('Ocenkata ne e validna.');
      ReadLn;
    end.  
  4. xBlago каза:

    program Project1;
    var
    chislo:integer;
    begin
    WriteLn(‘Vavedi chislo i proveri dali e validno’);
    ReadLn(chislo);
    if (chislo>=2) and (chislo<=6) then
    WriteLn('Ocenkata e validna')
    else
    WriteLn('Ocenkata ne e validna');
    ReadLn;
    end.

  5. Габи каза:
    program Project1;
    var
      chislo : real ;
      begin
      Write ( 'Kakva e ocenkata ' );
      ReadLn(chislo) ;
      if (chislo >= 2) and (chislo <= 6) then
      WriteLn ( 'Validna ocenka  ' )
      else
      WriteLn (' Chisloto ne e validna ocenka ');
      ReadLn;
      end.  
  6. гери3 каза:
    program Project1;
    var
    chislo : real;
    begin
    Write ('Kakva e ocenkata ? ');
    ReadLn (chislo);
    if (chislo >=2) and (chislo <=6) then
    WriteLn( 'Validna ocenka')
    else
    WriteLn ( ' Chisloto ne e validna ocenka ' );
    ReadLn;
    end.

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