To calculate the sum and average of three different numbers. You can edit the loop and the average formula to repeat it as many times as you'd like.

Program untitled;

var

sum, ave, n : real;

i : integer;

begin

sum := 0;

i := 1;

while i <=3 do

begin

writeln ('enter your numbers');

readln (n);

sum := sum + n;

ave := sum / 3;

i := i + 1 ;

end;

writeln (ave);

readln;

end.

var

sum, ave, n : real;

i : integer;

begin

sum := 0;

i := 1;

while i <=3 do

begin

writeln ('enter your numbers');

readln (n);

sum := sum + n;

ave := sum / 3;

i := i + 1 ;

end;

writeln (ave);

readln;

end.

Do you like this post? Please link back to this article by copying one of the codes below.

URL Of Post:

HTML Link Code:

BB (forum) link code:

## Comments

## Post a Comment

Please share your views on this topic with Grace Joseph by leaving a comment.