Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  somy
Language: PASCAL
Code:
program untitled;
var a,b,c,n,nr,min:integer;

begin
min:=0;
nr:=n;
write('n=');
read(n);
while(n<>0) do
begin
c:=n mod 10;
b:=n mod 10 div 10;
a:=n div 100;
end
if(a<min) then
begin
min:=a;
if(b<min) then
min:=b;
end
if(c<min) then
min:=c;
write('min este',c);
nr:=n*10+c;
writeln(nr);
end.
Comments: