JAWAB:
uses crt;
 var nama, nim,programstudi,ket: string ;
 tahunlahir, umur : integer;
 begin
 clrscr;
 write('Nama : '); readln(nama);
 write('NIM : '); readln(nim);
 write('Program Studi: '); readln(programstudi);
write('Tahun Lahir : '); readln(tahunlahir);
 umur:= 2010-tahunlahir;
 writeln;
 writeln('Umur: ', umur);
if umur <=5 then ket:='balita'
 else if umur <=13 then ket:='anak-anak'
 else if umur <=25 then ket:='remaja'
 else if umur <=40 then ket:='dewasa'
 else ket:='orang tua';
 writeln('Keterangan: ',ket);
 readln;
 end.
 
Tidak ada komentar:
Posting Komentar