Advertisement
igovasconcelos

Untitled

Aug 24th, 2020
345
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.20 KB | None | 0 0
  1. program media; program
  2. var p1, p2, m : real var real;
  3. begin
  4.  write('Primeira nota? ');
  5.  readln(p1);
  6.  write('Segunda nota? ');
  7.  readln(p2);
  8.  m := (p1+p2)/2;
  9.  writeln('A média é ', m:0:1);
  10. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement