Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  divisor
Language: PASCAL
Code:
program divisor;
var
  n : integer;

  function smallestDivisor(d : integer) : integer;
  begin
    for i <= n do   
     for j <= n do
        if n = i * then begin
       if i < j then
        smallestDivisor := i;
          else      smallestDivisor := j;
     end;
  end;
begin
  write('Introduceti un numar intreg > 3 : ');
  readln(n);

end.          
Comments: