fork download
copy 
  1. var n:int64;
  2.     s:integer;
  3. begin
  4.     s:=n mod 10;
  5.     read(n);
  6.     while (n>0) do
  7.     begin
  8.         if s>n mod 10 then s:=n mod 10;
  9.         s:=n mod 10;
  10.         n:=n div 10;
  11.     end;
  12.     write(s)
  13. end.    
  14.  
Success #stdin #stdout 0s 4448KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/4ZeKRv
language:
Pascal (fpc 3.0.4)
created:
6 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!