tugas 19

 Tugas 19
Algoritma

ratusan <- bil div 100
puluhan <- ...
satuan <- bil mod 10

perinta untuk mendapatkan puluhan diatas adalah..

Pascal

 uses crt;

var
 x, ratusan, puluhan, satuan: integer;

begin
  clrscr;
  write('masukan suatu angka: ');readln(x);
  ratusan := x div 100;
  puluhan := x div 10;
  satuan  := x mod 10;
  writeln('maka nilai puluhannya adalah: ',puluhan);
  readln();

end.