Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  PROVA MEDIA
Language: PASCAL
Code:
PROGRAM MEDIA;

VAR VOTO1, VOTO2, VOTO3, MED: REAL;

BEGIN
WRITELN( 'IMMETTI IL PRIMO VOTO');
READLN( VOTO1);
WRITELN( 'IMMETTI IL SECONDO VOTO');
READLN( VOTO2);
WRITELN( 'IMMETTI IL TERZO VOTO');
READLN( VOTO3);
MED:= (VOTO1+VOTO2+VOTO3)/3;
WRITELN('MEDIA =',MED:4:2);
READLN;
READLN;
END.


          
          
          
          
          
          
          
          
          
          
          
          
Comments: