fork(20) download
copy 
  1. Program Moy_Notes;
  2. Var i, n : Integer;
  3. note, s : Real;
  4. Begin
  5. Writeln ('Combien de notes : ');
  6. Readln (n);
  7. s:=0;
  8. For i:=1 To n Do 
  9. Begin
  10. Writeln ('Note ', i, ' : ');
  11. Readln (note);
  12. s := s+note; 
  13. End;
  14. Writeln ('Moyenne de ces ', n, ' notes : ', s/n:2:2);
  15. End.
Success #stdin #stdout 0s 288KB
comments (?)
stdin
copy 
3
15
12
18
stdout
copy 
Combien de notes : 
Note 1 : 
Note 2 : 
Note 3 : 
Moyenne de ces 3 notes : 15.00
https://ideone.com/41shtK
language:
Pascal (fpc 3.0.4)
created:
7 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!