Да се напише програма, която позволява да се въведе класа на ученик и отпечатва в коя образователна степен е – начално, основно или средно образование.
Да се напише програма, която позволява да се въведе класа на ученик и отпечатва в коя образователна степен е – начално, основно или средно образование.
[c] за С++ програми [/c]
[pascal] за паскал [/pascal]

за Къде се намира точка
за Вмъкване и изтриване на елемент *
за Позицията на X




за Броят на максималните елементи




за Броят на максималните елементи
за Пари за закуска




за Ученици с дадена оценка




за По-големи от средното| П | В | С | Ч | П | С | Н |
|---|---|---|---|---|---|---|
| « февр. | ||||||
| 1 | 2 | 3 | 4 | 5 | ||
| 6 | 7 | 8 | 9 | 10 | 11 | 12 |
| 13 | 14 | 15 | 16 | 17 | 18 | 19 |
| 20 | 21 | 22 | 23 | 24 | 25 | 26 |
| 27 | 28 | 29 | 30 | |||
program Project1; var klas : integer; begin Write('vavedete dedeniq klsa (ot1do 12)'); ReadLn(klas) ; case(klas) of 1..4 : WriteLn( 'Nachalno obrazovanie ') ; 5..8 : WriteLn ( 'Usnoveno obrazovanie ') ; 9..12 : WriteLn ( 'Sredno obrazovanie '); else WriteLn (' Nevaliden klas ') ; end ; ReadLn ; end.program project2; var dskl, dskl_1: integer; begin WriteLn ('Vavedete klas (ot 1 do 12)'); ReadLn (dskl); case (dskl) of 1,2,3,4: WriteLn('Nachalna stepen'); 5,6,7,8: WriteLn('Osnovna stepen'); 9,10,11,12: WriteLn('Sredno obrazovanie'); else Writeln('Ne figurira'); end; ReadLn; end.„Не фигурира“, хе :-)