美文网首页
Pascal小白|数字三角

Pascal小白|数字三角

作者: 皮卡球ca | 来源:发表于2017-12-27 15:47 被阅读0次

题目描述

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


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.

相关文章

网友评论

      本文标题:Pascal小白|数字三角

      本文链接:https://www.haomeiwen.com/subject/hxpugxtx.html