永发信息网

输入n和m,输出n的m次方,答案不会超过longint范围,求一pascal程序

答案:5  悬赏:10  手机版
解决时间 2021-04-23 16:37
是求n的m次方的答案
最佳答案
var n,m,i:integer;
s:longint;
begin
readln(n,m);s:=1;
for i:=1 to m do begin s:=s*n;
writeln(s);
end.
全部回答
首先楼主要信任我的程序要比他们的短而且更好:

1:program exam;var i,x:integer;beginx:=1;for i:=1 to 99 dox:=x*99;writeln(x mod 1000);end.2:这道题比较经典,我这种方法是史上最简单的,简称筛法

program zhishu; var x,n: longint; var j:boolean; begin while not eof do begin readln(n); if (n=0) or (n=1) then writeln('N','o') else begin x:=2; j:=true; for x:=2 to round(sqrt(n)) do if n mod x = 0 then j:=false; if j=true then writeln('Yes') else writeln ('No'); end; end; end.望楼主采纳

麻烦.采纳.·.·`··^·
(在Delphi里可以用power函数。) var a:array[0..10000] of longint; i,j,n,m:longint; begin readln(n,m); a[0]:=1; a[a[0]]:=1; for i:=1 to m do begin for j:=a[0] downto 1 do begin a[j]:=a[j]*n; a[j+1]:=a[j+1]+a[j] div 10000; a[j]:=a[j] mod 10000; end; if a[a[0]+1]>0 then inc(a[0]); end; write(a[a[0]]); for i:=a[0]-1 downto 1 do begin if a[i]<1000 then write(0); if a[i]<100 then write(0); if a[i]<10 then write(0); write(a[i]); end; end.
var n,m,i:integer; t:int64; s:longint; x:boolean begin x:=false; while x=false do begin write('bottom number (n):'); readln(n); write('exponent (m):'); readln(m); t:=1; for i:=1 to m do t:=t*n; //乘方 if t > 2147483648 then //判断结果是否超出longint范围 begin x:=false; writeln('error!'); end else begin x:=true; s:=t; write(n,'^',m,'=',s); end; end.

真是,深搜,再剪枝就是。

我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐个魔法类的动画片
怎么强加对方qq为好友
在12306注册是被要求输入身份证号,安全吗?
三国战记2群雄争霸英文版怎们调孔明
青兰乡有大王邑这个村吗
八一节祝福短语,描写植物的祝福短语
买房用户口薄上只用本人页吗
想考上北京的好大学在成都市成华区排名至少得
池州尧城大药房连锁有限公司怎么去啊,有知道
super junior 二巡上海站是在深源体育中心的
新余哪有好点的手机维修店
一根木上有三只虫,第一支说他前面没有虫,第
楚辞带金字旁的句子,含有金字的古诗句
“久居兰室而不闻其香”你知道其意思吗?
历史上被称为“黑色星期四”是指?
推荐资讯
twins的<童子军>是哪个专辑?
潍坊有哪几家干洗店比较好?青州有嘛?
吃什么能排出体内的毒素呢?
为什么每次的图片一个比一个难看他们却说好?
我户口在学校拿不回来!我可以再上户口吗?
大学学英语 语法还要学吗
我带rgp2个月了,眼睛怎么会很干啊
小学英文诗歌长篇,求英语长篇诗歌!!!
ABCD是矩形,ab=根号三,bc等于一,若ac对折,
男人净身出户是爱她的妻子吗?
我已经有了一个宠物,但找不到它在哪里?
研究生算学生吗,本科算上大学,那读研究生算上
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?