PROBLEM SOLVING - tempat bertanya PR Kaskuser (SD, SMP, SMA) - Part 3
program write(*,'(1x,bn,a,\)')' Berapa Kg berat badannya ?' read(*,*)berat write(*,'(1x,bn,a,\)')' Berapa cm tinggi badannya ?' read(*,*)tinggi bbi=(tinggi-100)*0.9 if (berat > 1.2 * bbi) prosentase = (berat-bbi)/bbi * 100 write(*,'(1x,a,f5.3,a)')'termasuk kategori kegemukan dengan k...