Оценка с думи

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

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

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

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

  1. Боряна каза:
    07 март, понеделник в 16:02 
    program ocenka;
var
  ocenka: integer;
begin
  Write('Vavedete ocenkata si, zakryglena do cialo chislo:');
  ReadLn(ocenka);
  case (ocenka) of
  2: WriteLn('Sygaliavam, vashata ocenka e "Slab 2".');
  3: WriteLn('Vashata ocenka e "Sreden 3".');
  4: WriteLn('Vashata ocenka e "Dobar 4".');
  5: WriteLn('Vashata ocenka e "Mnogo dobar 5".');
  6: WriteLn('Pozdravlenia, vashata ocenka e "Otlichen 6"!');
  else WriteLn('Vaznikna greshka, proverete presmiataniata si.');
  end;
  ReadLn;
end.
  2. Alya каза:
    07 март, понеделник в 16:04 
    program Project1;
var
  ocenka: integer;

begin
  Write('Vavedete ocenka (ot 2 do 6): ');
  ReadLn(ocenka);
  case(ocenka) of
  2: WriteLn('Slab dve');
  3: WriteLn('Sreden tri');
  4: WriteLn('Dobar chetiri');
  5: WriteLn('Mnogo dobar pet');
  6: WriteLn('Otlichen shest');
  else WriteLn('Nevalidna ocenka!');
  end;
  ReadLn;
end.
  3. svetlieti каза:
    07 март, понеделник в 16:08 
    program project1;
var
  ocenka:integer;
begin
  Writeln('Vavedete ocenkata');
  Readln(ocenka);
  case ocenka of
  2:   Writeln('Slab 2');
  3:   Writeln('Sreden 3');
  4:   Writeln('Dobur 4');
  5:   Writeln('Mnogo Dobur 5');
  6:   Writeln('Otlichen 6');
  else
    Writeln('Nqma takava ocenka');
  end;
  Readln;
end.
  4. zornitsa_mirela каза:
    07 март, понеделник в 16:18 
    program Ocenki;
var
ocenka: integer ;
begin
  Write('Vavedete ocenka');
  ReadLn(ocenka);
  case (ocenka) of
    2: WriteLn('Slab');
    3: WriteLn('Sreden');
    4: WriteLn('Dobur');
    5: WriteLn('Mnogo dobur');
    6: WriteLn('Otlichen');
  end;
  ReadLn;
end.
  5. Viktoria Velichkova каза:
    07 март, понеделник в 16:20 
    program VikiVOcenki;
var
  ocenka: integer;
begin
  Write('Vavedete ocenka (ot 2 do 6): ');
  ReadLn(ocenka);
  case (ocenka) of
   1: WriteLn('Veche nqma takava ocenka');
   2: WriteLn('Slad 2');
   3: WriteLn('Sreden 3');
   4: WriteLn('Dobur 4');
   5: WriteLn('Mnogo Dobur 5');
   6: WriteLn('Otlichen 6');
   Else WriteLn ('Vse oshte nqma takava ocenka!');
  end;
 ReadLn;
end.
  6. Lubomira каза:
    07 март, понеделник в 16:21 
     program Project1;
 var
   ocenka:integer;
begin
WriteLn('Vuvedete Ocenka ( ot 1 do 6 ) : ') ;
ReadLn (Ocenka) ;
Case (Ocenka) 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.
  7. Tsvetelin каза:
    07 март, понеделник в 16:28 
     
program Ocenki;
var ocenka:integer;

begin
WriteLn('Vuvedete ocenkata si: ');
ReadLn(ocenka);
case (ocenka) of
 1:WriteLn('Losh');
 2:WriteLn('Slab');
 3:WriteLn('Srednen');
 4:WriteLn('Dobur');
 5:WriteLn('Mnogo dobur');
 6:WriteLn('Otlichen');
else
 WriteLn('Nevalidna ocenka!')
end;
ReadLn;
end.
  8. viktoria каза:
    07 март, понеделник в 16:38 
    program ocenki;
var
  ocenka:integer;
begin
  WriteLn('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 ('Nqma takava ocenka!');
     ReadLn;
   end;
   ReadLn;
end.
  9. emiliarstefanova каза:
    14 март, понеделник в 15:33 
     program ocenka;
var
  ocenkata: integer;
begin
  Write('Vavedete ocenkata (ot 1 do 6)');
  ReadLn(ocenkata);
  case (ocenkata)of
  1: WriteLn('Vse oshte nqma takava ocenka');
  2: WriteLn('slab');
  3: WriteLn('sreden');
  4: WriteLn('dobur');
  5: WriteLn('mnogo dobur');
  6: WriteLn('otlichen');
  Else WriteLn ('Vse oshte nqma takava ocenka');
  end;
  ReadLn;
end.

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