从键盘输入一个小于1000的正数，要求输出它的平方根（如平方根不是整数，则输出其整数部分）。

Answer 1

1楼已经有了pascal和vf版本
我这里补上c和vb版本
c版本
#include<stdio.h>

int main()
{ int i,n;
scanf("%d",&n);
i=sqrt(n);
printf("%d",i);
system("PAUSE");
}
vb版本
Private Sub Form_Click()
Dim n As Integer
n = InputBox("n=")
Print Int(Sqr(n))
End Sub

Answer 2

pascal:
var a:longint;
begin
readln(a);
writeln(trunc(sqrt(a)));
end.

B
input a
x=sqrt(a)
if x-(x \ 1)=0 then
print x
else print x \ 1
end if
end