Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  Media voto
Language: PASCAL
Code:
program media;
var voto1,voto2,voto3, med: real;
begin
writeln('immetti il primo voto');
readln(voto1);
writeln('immetti il seondo voto');
readln(voto2);
writeln('immetti il terzo voto');
readln(voto3);
med:= ((voto1+voto2+voto3)/3);
if (med<6) then writeln('insufficiente');
writeln ('media =',med:4:2);
readln;
readln;
end.

          
          
          
          
          
Comments: