Оценка с думи

Да се въведе оценка с цифра и да се изведе с дума и цифра (например „отличен 6“)

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

4 Responses to Оценка с думи

  1. Mladen96 каза:
     
    
    program Project1;
    
    var
    ocenka: integer;
    begin
    
    write ('Vavedete ocenka (ot 2 do 6):');
    ReadLn (ocenka);
    case (ocenka) of
    2: WriteLn ('slab') ;
    3: WriteLn ('sreden') ;
    4: WriteLn ('dobar') ;
    5: WriteLn ('mnogo dobar') ;
    6: WriteLn ('otlichen') ;
    else WriteLn ('Nevalidna ocenka');
    end;
    ReadLn;
    end.       
    
    
  2. cwettelinaa каза:
    program Ocenki;
    var
     ocenka: integer;
    begin
     Write ('Vavedete ocenka ( ot 2 do 6');
     ReadLn(ocenka)
     case (ocenka) of
       2: WriteLn('slab');
       3: WriteLn('sreden');
       4: WriteLn('dobur');
       5: WriteLn('mnogo dobur');
       6: WriteLn('otlichen');
       else WriteLn ('Nevalidna ocenka');
       end;
       ReadLn;
     end.
  3. Silviq Evgenieva каза:
     program Ocenki;
    var
     ocenka: integer;
    begin
     Write('Vavedete ocenka ( ot 2 do 6:');
     ReadLn(ocenka);
     case (ocenka) of
       2: WriteLn('slab');
       3: WriteLn('sreden');
       4: Writeln('dobyr');
       5: WriteLn('mnogo dobyr');
       6: WriteLn('otlichen');
       else WriteLn('Nevalidna ocenka!');
       end;
       ReadLn;
    end.
  4. Elitsa каза:
    program Project1;
    var
      ocenka: integer;
    begin
     Write('Vuvedete ocenka (ot 2 do 6):');
     ReadLn (ocenka);
     case (ocenka) of
       2: WriteLn( ' Slab ' );
       3: WriteLn('Sreden');
       4: WriteLn ('Dobur');
       5: WriteLn ('Mnogo doobur');
       6: WriteLn ('Otlichen');
     else WriteLn('Nevalidna ocenka!');
     end;
     ReadLn;
    end.

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