|
Program Ganjil Genap
Uses wincrt;
var
bil,i,g1,g2,j1,j2,n:integer;
rt1,rt2:real;
begin
write(' Masukan banyak data');readln(n);
for i:=1 to n do
begin
write('bilangan ke:'i' ');readln(bil);
if bil mod 2=0 then
j1:=j1+1;
g1:=g1+bil;
if bil mod2=1 then
j2:=j2+1
g2:=g2+bil;
end;
rt1:=g1/j1;
rt2:=g2/j2;
writeln('jumlah bil. ganjil='j2);
writeln('jumlah bil. genap='j1);
writeln('rerata ganjil=',rt2:4:2);
writeln('rerata genap=',rt1:4:2);
end.
Uses wincrt;
var
bil,i,g1,g2,j1,j2,n:integer;
rt1,rt2:real;
begin
write(' Masukan banyak data');readln(n);
for i:=1 to n do
begin
write('bilangan ke:'i' ');readln(bil);
if bil mod 2=0 then
j1:=j1+1;
g1:=g1+bil;
if bil mod2=1 then
j2:=j2+1
g2:=g2+bil;
end;
rt1:=g1/j1;
rt2:=g2/j2;
writeln('jumlah bil. ganjil='j2);
writeln('jumlah bil. genap='j1);
writeln('rerata ganjil=',rt2:4:2);
writeln('rerata genap=',rt1:4:2);
end.
you please comment on my blog ..,
"silahkan anda komentari blog saya.., "