В коя образователна степен е

Да се напише програма, която позволява да се въведе класа на ученик и отпечатва в коя образователна степен е – начално, основно или средно образование.

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

14 Responses to В коя образователна степен е

  1. misho_cveti каза:
      program project1 ;
    var
      klas:integer;
    begin
    WriteLn('Vavedete class(ot 1 do 12):');
     ReadLn(klas);
      case(klas) of
       1,2,3,4:WriteLn('nachalno');
       5,6,7,8:WriteLn('osnovno');
       9,10,11,12:WriteLn('sredno');
       else WriteLn('Nqma takuv klas!!!');
      end;
      ReadLn;
    end.          
  2. urbae каза:

    program Project1;
    var
    klas: integer;
    begin
    WriteLn (‘Vavedete mesec (ot 1 do 12):’);
    ReadLn (klas);
    case (klas) of
    1..4: WriteLn (‘Nachalno’);
    5..8: WriteLn (‘Osnovno’);
    9..12: WriteLn (‘Sredno’);
    else WriteLn (‘Nevaliden klas!’);
    end;
    ReadLn;
    end.

  3. Евгения Георгиева каза:

    program Obrazovanie;
    Var
    klas:integer;
    begin
    Write ( ‘Vavede klas ( ot 1 do 12 ):’);
    ReadLn (klas);
    case (klas) of
    1,2,3,4: WriteLn ( ‘Nachalno obrazovanie’);
    5,6,7,8: WriteLn ( ‘Osnovno obrazovanie’);
    9,10,11,12: WriteLn ( ‘Sredno obrazovanie’);
    end;
    ReadLn;
    end.

  4. Габи каза:
    Program Ychilishte;
    var
      klas:integer;
      begin
        Write('Vavedi klas (ot 1 do 12):');
        ReadLn(klas);
        case klas of
        1,2,3,4:Write('Nachalno obrazovanie');
        5,6,7,8:Write('Osnosno obrazovanie');
        9,10,11,12:Write('Sredno obrazovanie');
        else WriteLn('Nevalidno klas');
        end;
        ReadLn;
      end.
  5. гери3 каза:
    Program Ychilishte;
    var
    klas:integer;
    begin
    Write('Vavedio klas (ot 1 do 12):');
    Readln(Klas);
    case klas of
    1,2,3,4:Write('Nachalno obrazovanie');
    5,6,7,8:Write('Osnovno obrazovanie');
    9,10,11,12:Write('Sredno obrazovanie');
    else WriteLn('Nevaliden klas');
    end;
    ReadLn;
    end. 
  6. veronika каза:

    program Klasove ;
    var
    klas:integer;
    begin
    Write(‘Vavedete klas (ot 1 do 12):’);
    ReadLn(klas);
    case (klas) of
    1,2,3,4:WriteLn(‘nachalno’);
    5,6,7,8,9:WriteLn(‘osnovno’);
    10,11,12:WriteLn(‘sredno’);
    else WriteLn(‘Nevaliden klas’);
    end;
    ReadLn;
    end.

  7. Veselina каза:
     program Project1;
    var
     klas:integer;
    begin
      WriteLn('Vavedete klas (ot 1 do 12)');
      ReadLn(klas);
      case (klas) of
      1..4: WriteLn('Stepen na obrazovanie:nachalna');
      5..8: WriteLn('Stepen na obrazovanie:osnovna');
      9..12: WriteLn('Stepen na obrazovanie:sredna');
    
      else
        WriteLn('Nevaliden klas!');
      end;
      ReadLn;
    end. 

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