raptor输出1000以内同构数

raptor可以截取数字符后几位吗？还是只能这种方法

Private Sub Command1_Click()
Dim i As Integer '求1000以内的同构数。
For i = 1 To 100
  If i = Val(Right(Str(i * i), Len(i))) Then Print i
  'If Str(i) = Str(Right(Str(i * i), Len(i))) Then Print i '这样也行。都str转一下再比较相等
Next
End Sub
输出 1 25 76

#include <iostream>
#include <cmath> //数学函数
#define N 1000 //定义常量
 
using namespace std; //引用名字空间
 
//求1000以内的同构数 转自http://www.pythonschool.com/蟒蛇学校
int main(int argc, char* argv[])
{
	long result;
	cout << "<------------1~1000之间的同构数----------->"<<endl;
	for( int i=N; i>=1; i-- )
	{
		result = pow(i,2);
		if( i<10 && i == result%10 ) //处理10以下的数
			cout << i << "    同构数   " << result << endl;
		else if( i>=10 && i == result%100 ) //处理100以下的数
			cout << i << "   同构数   " << result << endl;
		else if( i>=100 && i == result%1000 ) //处理1000以下的数
			cout << i << "  同构数   " << result << endl;
		else
			continue;
	}
	cout<<"<--------------------------------------->"<<endl;
	return 0;
}

您好，我是有问必答小助手，您的问题已经有小伙伴解答了，您看下是否解决，可以追评进行沟通哦~

如果有您比较满意的答案 / 帮您提供解决思路的答案，可以点击【采纳】按钮，给回答的小伙伴一些鼓励哦～～

ps:问答VIP仅需29元，即可享受5次/月 有问必答服务，了解详情>>>https://vip.csdn.net/askvip?utm_source=1146287632