Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  d
Language: PASCAL
Code:
program HelloWorld;
var
  N1, N2, N3, N4, MÉDIA: real;
begin
       writeln('Insira a primeira nota')
     readln(N1);
     writeln('Insira a segunda nota');
     readln(N2);
     writeln('Insira a terceira nota');
     readln(N3);
     writeln('Insira a quarta nota');
     readln(N4);
     
     media := (N1 + N2 + N3 + N4) / 4;
     writeln('A media sera:', media:0:1);
     readln ();
end.          
          
Comments: