Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program hitung_rata_rata;
- uses crt ;
- var mk1,mk2,mk3,mk4,a,b :real;
- begin
- clrscr;
- write ('masukan nilai 1:'); read(mk1);
- write ('masukan nilai 2:'); read(mk2);
- write ('masukan nilai 3:'); read(mk3);
- write ('masukan nilai 4:'); read(mk4);
- a := (mk1+mk2+mk3+mk4);
- b := (a/4);
- writeln ('Nilai rata rata anda yaitu =',b:0:0);
- readkey;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement