Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  function cifra(n:integer):integer; var min,n:integer; begin min:=maxint; while n<>0 do begin if n mod 10<min then min:=n mod 10 cifra:=min; end; var n:integer; begin readln(n); write(cifra(n)); readln; end.
Language: PASCAL
Code:
program HelloWorld;
var
  a    : Byte;
begin
  writeln('Hello World');
  Readln(a);
end.          
Comments: