比赛代码 - COGS

比赛	防止浮躁的小练习v0.7	评测结果	AAAAAAAAAA
题目名称	Pell方程	最终得分	100
用户昵称	citrono	运行时间	0.012 s
代码语言	Pascal	内存使用	0.17 MiB
提交时间	2016-10-27 19:05:34

显示代码纯文本

program pell;
var
 i,j,n:longint;
procedure main;
 begin
 while true do
  begin
   for j:=1 to i do
    if i*i-n*j*j=1 then
     begin
      writeln(i,' ',j);
      exit;
     end;
   inc(i);
  end;
 end;
begin
 assign(input,'pell.in');reset(input);
 assign(output,'pell.out');rewrite(output);
 readln(n);
 i:=1;j:=1;
 main;
 close(input);
 close(output);
end.