Online JudgeProblem SetAuthorsOnline ContestsUser
Web Board
Home Page
F.A.Qs
Statistical Charts
Problems
Submit Problem
Online Status
Prob.ID:
Register
Update your info
Authors ranklist
Current Contest
Past Contests
Scheduled Contests
Award Contest
User ID:
Password:
  Register
欢迎参加IJCAI 2020麻将智能体竞赛,大奖等你拿!Welcome to IJCAI 2020 Mahjong AI competition with amazing prizes!

OMS 秒杀.....

Posted by qishuaidr at 2011-03-03 22:56:42 on Problem 1218
program qi(input,output);
var
  a,b,c,d,i,j,k,ans:longint;
begin
  readln(a);
  for i:=1 to a do
    begin
      ans:=0;
      readln(b);
      for j:=1 to b do
        begin
          if sqrt(j)/trunc(sqrt(j))=1 then inc(ans);
        end;
      writeln(ans);
    end;
end.

PASCAL还是好使.....

Followed by:

Post your reply here:
User ID:
Password:
Title:

Content:

Home Page   Go Back  To top


All Rights Reserved 2003-2013 Ying Fuchen,Xu Pengcheng,Xie Di
Any problem, Please Contact Administrator