program
Tipe_B_rata_rata;
uses crt;
var
x, n, jumlah:
integer;
U : real;
begin
clrscr;
n:= 10;
for x := 1 to n do
begin
if x mod 2 = 1 then
jumlah := jumlah +x;
end;
u:=jumlah / n;
writeln ('rata-rata = ', U:0:2);
readln;
end.
0 comments:
Post a Comment