Оценка с думи

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

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

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

  1. deni_mladenov каза:

    program ocenka_s_dumi1;
    var
    ocenka: integer ;
    begin
    Write (‘Vavedete ocenka:’) ;
    ReadLn (ocenka) ;
    case (ocenka) of
    2 : WriteLn (‘Slab 2’) ;
    3 : WriteLn (‘Sreden 3’) ;
    4 : WriteLn (‘Dobur 4’) ;
    5 : WriteLn (‘Mnogo dobyr 5’) ;
    6 : WriteLn (‘Otlichen 6’) ;
    else WriteLn (‘Nevalidna ocenka!’) ;
    end;
    ReadLn ;
    end.

  2. Габи каза:
     program Ocenki ;
    var
      chislo:integer;
    begin
      Write('Vavedi chislo(ot 2 do 6):');
      ReadLn(chislo);
      case chislo of
      2:WriteLn('Slab dve');
      3:WriteLn('Sreden tri');
      4:WriteLn('Dobyr chetiri');
      5:WriteLn('Mnogodobyr pet');
      6:WriteLn('Otlichen shest');
      else WriteLn('Nevalidna ocenka');
      end;
      ReadLn;
    end. 
  3. гери3 каза:
    Program ocenki;
    var
    chislo:integer;
    begin
    Write(' Vavedi chislo (ot 2 do 6):');
    ReadLn(chislo);
    case chislo of
    2:WriteLn('slab dve');
    3:WriteLn('sreden tri');
    4:WriteLn('dobur chetiri');
    5:WriteLn('mnogo dobur pet');
    6:WriteLn('otlichen shest');
    else WriteLn ('Nevalidna ocenka');
    end;
    ReadLn;
    end. 
  4. Евгения Георгиева каза:

    program Rezultat;
    Var
    ocenka:integer;
    begin
    Write ( ‘Vavedete ocenka ( ot 2 do 6):’);
    ReadLn (ocenka);
    case (ocenka) of
    2: WriteLn ( ‘Slab 2’);
    3: WriteLn ( ‘Sreden 3’);
    4: WriteLn ( ‘Dobar 4’);
    5: WriteLn ( ‘Mnogo dobar 5’);
    6: WriteLn ( ‘Otlichen 6’);
    end;
    ReadLn;
    end.

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