Komentar

Jumat, 05 Juli 2013

Case

Posted by M Habibie 19.55, under | No comments





var
 n : longint;






begin
 readln(n);
  case of
  1..9 begin writeln('satuan'); end;
  10..99 begin writeln('puluhan'); end;
  100..999 begin writeln('ratusan'); end;
  1000..9999 begin writeln ('ribuan'); end;
  10000..99999 begin writeln ('ribuan'); end;
  end;
end.

0 komentar:

Posting Komentar

Your Ip Address

Your IP Address

IP

Popular Post

Popular Posts