Question

Va rog!!!! Dau coroana

Answer 1

Pascal (C++ sorry nu il prea inteleg):

Calificativul notei:

var  

  a:integer;

begin

     write('Nota:');

     readln(a);

     case a of  

     10:writeln('Exceptional');

     9,8:writeln('Foarte bine');

     7:writeln('Bine');

     6,5:writeln('Suficient');

     4,3,2:writeln('Insuficient');

     end;

end.

Par sau impar:

var  

  a:integer;

begin

     write('Numarul:');

     readln(a);

     if (a mod 2=0) then

     writeln('Numar par')

     else

     writeln('Numar impar');

end.