Pascal小白|数字三角

题目描述

中山市迎接活动要在兴中体育场举行，市教育局为每个学校安排了一个区域，每个学校的同学都要再自己学校的区域内。分给你们小学的区域是个等边三角形。大家按照座位区域，一下就设计出了以下座位安排方案。

image.png

代码

var 
    i,j,n,m,x:integer;
begin
  readln(n);
  m:=0;
  for x:=1 to n do
  begin
    
    if(m+x>= n) then
        begin 
                i:=x;
                j:=n-m;
                break;
         end
    else m:=m+x;
    end;

 writeln(i,' ',j);
 readln;

end.