ALGORITMOS E IMPLEMENTAÇÕES ⇒ Código fonte Calculadora de notas em Pascal

[pensadornato]

Código: Selecionar todos

program calculo_de_media_das_provas;

uses crt;

var aluno:string;
    nota1,nota2,media:real;


    begin
    clrscr;
    writeln('digite o nome do aluno');
    readln(aluno);
    writeln('digite nota1 ');
    readln(nota1);

    writeln('digite nota2 ');
    readln(nota2);

    media:=((nota1+nota2)/2);
    writeln(media:0:0);




    end.