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

Публикувано на 07 март, понеделник от Данаил

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

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

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

  1. Боряна каза:
    07 март, понеделник в 16:01 
    program stepen_obrazovanie;
var
  klas:integer;
begin
  Write('Vavedete klasa:');
  ReadLn(klas);
  case (klas) of
  1..4: WriteLn('Tova e nachalna stepen na obrazovanie.');
  5..7: WriteLn('Tova e osnovna stepen na obrazovanie.');
  8..12: WriteLn('Tova e sredna stepen na obrazovanie.');
  else WriteLn('Nevaliden klas / Visshe obrazovanie');
  end;
  ReadLn;
end.
  2. svetlieti каза:
    07 март, понеделник в 16:07 
    program project1;
var
  klas:integer;
begin
  Writeln('Vavedete klas');
  Readln(klas);
  case klas of
  1..4:     Writeln('Vie ste v nachalno ubochenie');
  5..7:     Writeln('Vie ste v osnovno ubochenie');
  8..12:    Writeln('Vie ste v sredno ubochenie');
  else
    Writeln('Nqma takava stepen na ubochenie');
  end;
  Readln;
end.
  3. Viktoria Velichkova каза:
    07 март, понеделник в 16:22 
    program ObrazovatelnaStepen;
var
  clas: integer;
begin
  Write('Vavedete clas: ');
  ReadLn(clas);
  Case (clas) of
   1..4: WriteLn('Nachalno');
   5..8: WriteLn('Osnovno');
   9..12: WriteLn('Sredno');
   else WriteLn ('Nqma takuv clas')
  end;
  ReadLn;
end.
  4. Alya каза:
    07 март, понеделник в 16:23 
    program Project1;
var
  klas: integer;

begin
  Write('Vavedete klas (ot 1 do 12): ');
  ReadLn(klas);
  case (klas) of
  1..4: WriteLn('Nachalno obrazovanie');
  5..8: WriteLn('Osnovno obrazovanie');
  9..12: WriteLn('Sredno obrazovanie');
  else WriteLn('Nevaliden klas!');
  end;
  ReadLn;
end.
  5. Lubomira каза:
    07 март, понеделник в 16:31 
     
program Project1;
var
  klas:integer ;
begin
Write ( 'Vuvedete klas ( Ot 1 do 12 ) ');
ReadLn (klas) ;
case (klas) of
1..4 :WriteLn ('Nachalno obrazowanie') ;
5..7 :WriteLn ('Osnowno obrazowanie') ;
8..12 :WriteLn ('Sredno obrazowanie') ;
else WriteLn ('Nevaliden klas') ;
end;
ReadLn ;



end.
  6. viktoria каза:
    07 март, понеделник в 16:37 
    program stepennaobrazovanie;
var
  klas:integer;
begin
  WriteLn ('Vavedete klas (ot 1 do 9):');
  ReadLn(klas);
  case (klas) of
   1..4: WriteLn('nachalno obrazovanie');
   5..7: WriteLn('osnovno obrazovanie');
   8..12: WriteLn('sredno obrazovanie');
  else WriteLn('Nqma takav klas');
  ReadLn;
  end;
  ReadLn;
end.

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