| |
 最初学
|
各位好
( 2016/5/25 7:52:28 ) |
| |
var n,k,t,s,p,i:integer;
begin
assign(input,'p1030.in');
assign(output,'p1030.out');
reset(input);
rewrite(output);
read(n);
i:=1;
k:=1;
s:=1;
t:=1;
while i<n do
begin
if (k>=t)and(k<(2+t-1)) then
begin
i:=i+1;
s:=s-1;
k:=k+1;
end
else
if k<t then
begin
i:=i+1;
s:=s+1;
k:=k+1;
end
else
begin
i:=i+1;
s:=1;
k:=1;
t:=t+1;
end;
end;
writeln(s);
close(input);
close(output);
end.
( ) |
| |
傻比,林浩锋
( ) |
| |
hh
( ) |
| 简单数列 求答案 |
1.简单数列(matrix.pas)☆
1,4,9,16,25...
求第n项的值
样例输入：5
样例输出：25
0<n<=maxlongint;
( ) |
|
