Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Media;
- begin
- var
- nome:string
- nt1,nt2,media:real
- write ('Digite o nome do(a) aluno(a) ');
- read (Nome);
- write ('Digite 2 notas de ' , nome, '.');
- read (nt1,nt2);
- media:= (nt1+nt2)/2;
- write (Nome 'obteve media' , Media)
- end
Add Comment
Please, Sign In to add comment