Question

Alcatuieste un program PASCAL care va afisa daca un elev nu stie tabla inmultirii.(Elevul este intrebat cat fac 7*8 iar dupa raspuns programul va afisa mesajul corespunzaror.

Answer 1

Răspuns:

program test;

var a,b,c,r, nota,i:integer;

begin

 randomize;

 nota:=0;

 for i:=1 to 10 do

   begin

     a:=random(10); b:=random(10);

     c:=a*b;

     write('  ',a,'*',b,'=');

     read(r);

     if r=c then  

       begin nota:=nota+1; writeln('  Corect'); end

     else writeln('  nu-i corect...');

   end;

   

  Writeln('Ai acumulat ',nota,' puncte din 10');

end.

Explicație: