求助一道题【pascal吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：10,149贴子：
求助一道题收藏
分水果苹果有x个，梨有y个。老师想把这些水果分成若干份，且每份的苹果数相同，梨数也相同，分的份数越多越好。老师想考考小刚，就让他来分，小刚想了想说：“只要你的苹果数和梨数都不超过1020，我都能分好。”【输入格式】输入文件fruit.in：两个整数x y,【输出格式】输出文件fruit.out：一个数：最多份数。【输入样例】4 8【输出样例】 4
vara,b:function ***(x,y:longint):beginif y=0then exit(x);exit(***(y,x mod y));beginreadln(a,b);writeln(***(a,b));end.
“***”是？
就是一个求最小公倍数的题。问题是如果输入是4，5，输出是多少？难道是1？这样也分不好呀。
我想要完整的程序，大神门谢谢了
a,b,s:begin
readln(a,b);s:=1;
while (a mod s=0) and (b mod s=0) do s:=s+1;
writeln(s);end.
登录百度帐号推荐应用求动态规划的一道题（pascal）_学习帮助 - QQ志乐园
您的当前位置： &
求动态规划的一道题（pascal）
来源： |人气：819 ℃|时间： 19:26:50
为了解决用户可能碰到关于"求动态规划的一道题（pascal）"相关的问题，志乐园经过收集整理为用户提供相关的解决办法，请注意，解决办法仅供参考，不代表本网同意其意见,如有任何问题请与本网联系。"求动态规划的一道题（pascal）"相关的详细问题如下:
*问题描述* 由苏州市科学技术协会创办的公益性质的青少年科学工作室,旨在通过参与、实践、体验的过程培养青少年的动手能力及创新意识。今年的夏令营安排了一个让营员动手实践的活动项目，要求利用该工作室提供的锯床和材料在辅导老师的指导下*制作出各种不同的模型。 活动时两名营员组成一小组制作N个模型。制作每件模型需一定时间，且只能由一人完成。例如N=4时，四件模型完成的时间分别为：8，11，13，21分钟，此时二人有多种完成的方案： 方案一：A 制作前3件用时32分钟，B制作第4件用时21分钟，两人总的完成时间为32分钟； 方案二：A 制作1、4件用时29分钟，B制作2、3件用时24分钟，两人总的完成时间为29分钟。
在确定了N及每件模型制作时间后，现在请你找出一种完成时间最少的方案。 *输 入*：文件读入。第一行一个整数N ，表示N个模型（2≤N≤100）。
第二行N个整数（≤10000），表示制作N个模型的用时。数与数之间用逗号分隔。
*输 出*：输出到屏幕 。一个整数（表示最少用时）。
3 21 12，18，9
我看过许多不同版本的题，意思都差不多。 这道题我学basic时就只对了一半，另一半超时。现在学了pascal，也会了动态规划，就记得那时老师就说这道题用“动态规划”解，谁能告诉我方法， 万分感谢！就是经典的背包问题啊 先算出所有模型的制作总时间 然后除以二 得到的数值就是背包的容积 然后将模型的时间当成物品的体积和价值 将物品放入背包 使得背包剩余体积最小 此时背包里的物品的体积之和 就是，做得少的那个人用的时间 用总时间减去这个时间 就是做得多的那个人所耗时间 也就是左后答案
||||点击排行2013年 总版技术专家分年内排行榜第一
2014年 总版技术专家分年内排行榜第三
2013年 总版技术专家分年内排行榜第一
2014年 总版技术专家分年内排行榜第三
2013年 总版技术专家分年内排行榜第一
2014年 总版技术专家分年内排行榜第三
2013年 总版技术专家分年内排行榜第一
2014年 总版技术专家分年内排行榜第三
2013年 总版技术专家分年内排行榜第一
2014年 总版技术专家分年内排行榜第三
2013年 总版技术专家分年内排行榜第一
2014年 总版技术专家分年内排行榜第三
2013年 总版技术专家分年内排行榜第一
2014年 总版技术专家分年内排行榜第三
2013年 总版技术专家分年内排行榜第一
2014年 总版技术专家分年内排行榜第三
2013年 总版技术专家分年内排行榜第一
2014年 总版技术专家分年内排行榜第三
2013年 总版技术专家分年内排行榜第一
2014年 总版技术专家分年内排行榜第三
2013年 总版技术专家分年内排行榜第一
2014年 总版技术专家分年内排行榜第三
2013年 总版技术专家分年内排行榜第一
2014年 总版技术专家分年内排行榜第三
2013年 总版技术专家分年内排行榜第一
2014年 总版技术专家分年内排行榜第三
2013年 总版技术专家分年内排行榜第一
2014年 总版技术专家分年内排行榜第三
2013年 总版技术专家分年内排行榜第一
2014年 总版技术专家分年内排行榜第三
2013年 总版技术专家分年内排行榜第一
2014年 总版技术专家分年内排行榜第三
2013年 总版技术专家分年内排行榜第一
2014年 总版技术专家分年内排行榜第三
本帖子已过去太久远了，不再提供回复功能。求解！新手的一道题【pascal吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：10,149贴子：
求解！新手的一道题收藏
将二进制数转十进制，输入N，输入N位二进制数，将其转为十进制输出，保证二进制数不超过10位
新手求解、并说明原因
打表吧。10位而已。
varn,s:begin readln(s); readln(n);case n of0:writeln(0);1:writeln(1);10:writeln(2);11:writeln(3);100:writeln(4);101:writeln(5);110:writeln(6);111:writeln(7);1000:writeln(8);1001:writeln(9);1010:writeln(10);1011:writeln(11);1100:writeln(12);1101:writeln(13);1110:writeln(14);1111:writeln(15);10000:writeln(16);10001:writeln(17);10010:writeln(18);10011:writeln(19);10100:writeln(20);10101:writeln(21);10110:writeln(22);10111:writeln(23);11000:writeln(24);11001:writeln(25);11010:writeln(26);11011:writeln(27);11100:writeln(28);11101:writeln(29);11110:writeln(30);11111:writeln(31);100000:writeln(32);100001:writeln(33);100010:writeln(34);100011:writeln(35);100100:writeln(36);100101:writeln(37);100110:writeln(38);100111:writeln(39);101000:writeln(40);101001:writeln(41);101010:writeln(42);101011:writeln(43);101100:writeln(44);101101:writeln(45);101110:writeln(46);101111:writeln(47);110000:writeln(48);110001:writeln(49);110010:writeln(50);110011:writeln(51);110100:writeln(52);110101:writeln(53);110110:writeln(54);110111:writeln(55);111000:writeln(56);111001:writeln(57);111010:writeln(58);111011:writeln(59);111100:writeln(60);111101:writeln(61);111110:writeln(62);111111:writeln(63);1000000:writeln(64);1000001:writeln(65);1000010:writeln(66);1000011:writeln(67);1000100:writeln(68);1000101:writeln(69);1000110:writeln(70);1000111:writeln(71);1001000:writeln(72);1001001:writeln(73);1001010:writeln(74);1001011:writeln(75);1001100:writeln(76);1001101:writeln(77);1001110:writeln(78);1001111:writeln(79);1010000:writeln(80);1010001:writeln(81);1010010:writeln(82);1010011:writeln(83);1010100:writeln(84);1010101:writeln(85);1010110:writeln(86);1010111:writeln(87);1011000:writeln(88);1011001:writeln(89);1011010:writeln(90);1011011:writeln(91);1011100:writeln(92);1011101:writeln(93);1011110:writeln(94);1011111:writeln(95);1100000:writeln(96);1100001:writeln(97);1100010:writeln(98);1100011:writeln(99);1100100:writeln(100);
1100100:writeln(100);1100101:writeln(101);1100110:writeln(102);1100111:writeln(103);1101000:writeln(104);1101001:writeln(105);1101010:writeln(106);1101011:writeln(107);1101100:writeln(108);1101101:writeln(109);1101110:writeln(110);1101111:writeln(111);1110000:writeln(112);1110001:writeln(113);1110010:writeln(114);1110011:writeln(115);1110100:writeln(116);1110101:writeln(117);1110110:writeln(118);1110111:writeln(119);1111000:writeln(120);1111001:writeln(121);1111010:writeln(122);1111011:writeln(123);1111100:writeln(124);1111101:writeln(125);1111110:writeln(126);1111111:writeln(127);:writeln(128);:writeln(129);:writeln(130);:writeln(131);:writeln(132);:writeln(133);:writeln(134);:writeln(135);:writeln(136);:writeln(137);:writeln(138);:writeln(139);:writeln(140);:writeln(141);:writeln(142);:writeln(143);:writeln(144);:writeln(145);:writeln(146);:writeln(147);:writeln(148);:writeln(149);:writeln(150);:writeln(151);:writeln(152);:writeln(153);:writeln(154);:writeln(155);:writeln(156);:writeln(157);:writeln(158);:writeln(159);:writeln(160);:writeln(161);:writeln(162);:writeln(163);:writeln(164);:writeln(165);:writeln(166);:writeln(167);:writeln(168);:writeln(169);:writeln(170);:writeln(171);:writeln(172);:writeln(173);:writeln(174);:writeln(175);:writeln(176);:writeln(177);:writeln(178);:writeln(179);:writeln(180);:writeln(181);:writeln(182);:writeln(183);:writeln(184);:writeln(185);:writeln(186);:writeln(187);:writeln(188);:writeln(189);:writeln(190);:writeln(191);:writeln(192);:writeln(193);:writeln(194);:writeln(195);:writeln(196);:writeln(197);:writeln(198);:writeln(199);:writeln(200);:writeln(201);:writeln(202);:writeln(203);:writeln(204);:writeln(205);:writeln(206);:writeln(207);:writeln(208);:writeln(209);:writeln(210);:writeln(211);:writeln(212);:writeln(213);:writeln(214);:writeln(215);:writeln(216);:writeln(217);:writeln(218);:writeln(219);:writeln(220);:writeln(221);:writeln(222);:writeln(223);:writeln(224);:writeln(225);:writeln(226);:writeln(227);:writeln(228);:writeln(229);:writeln(230);:writeln(231);:writeln(232);:writeln(233);:writeln(234);:writeln(235);:writeln(236);:writeln(237);:writeln(238);:writeln(239);:writeln(240);:writeln(241);:writeln(242);:writeln(243);:writeln(244);:writeln(245);:writeln(246);:writeln(247);:writeln(248);:writeln(249);:writeln(250);:writeln(251);:writeln(252);:writeln(253);:writeln(254);:writeln(255);:writeln(256);:writeln(257);:writeln(258);:writeln(259);:writeln(260);:writeln(261);:writeln(262);:writeln(263);:writeln(264);:writeln(265);:writeln(266);:writeln(267);:writeln(268);:writeln(269);:writeln(270);:writeln(271);:writeln(272);:writeln(273);:writeln(274);:writeln(275);:writeln(276);:writeln(277);:writeln(278);:writeln(279);:writeln(280);:writeln(281);:writeln(282);:writeln(283);:writeln(284);:writeln(285);:writeln(286);:writeln(287);:writeln(288);:writeln(289);:writeln(290);:writeln(291);:writeln(292);:writeln(293);:writeln(294);:writeln(295);:writeln(296);:writeln(297);:writeln(298);:writeln(299);:writeln(300);
:writeln(301);:writeln(302);:writeln(303);:writeln(304);:writeln(305);:writeln(306);:writeln(307);:writeln(308);:writeln(309);:writeln(310);:writeln(311);:writeln(312);:writeln(313);:writeln(314);:writeln(315);:writeln(316);:writeln(317);:writeln(318);:writeln(319);:writeln(320);:writeln(321);:writeln(322);:writeln(323);:writeln(324);:writeln(325);:writeln(326);:writeln(327);:writeln(328);:writeln(329);:writeln(330);:writeln(331);:writeln(332);:writeln(333);:writeln(334);:writeln(335);:writeln(336);:writeln(337);:writeln(338);:writeln(339);:writeln(340);:writeln(341);:writeln(342);:writeln(343);:writeln(344);:writeln(345);:writeln(346);:writeln(347);:writeln(348);:writeln(349);:writeln(350);:writeln(351);:writeln(352);:writeln(353);:writeln(354);:writeln(355);:writeln(356);:writeln(357);:writeln(358);:writeln(359);:writeln(360);:writeln(361);:writeln(362);:writeln(363);:writeln(364);:writeln(365);:writeln(366);:writeln(367);:writeln(368);:writeln(369);:writeln(370);:writeln(371);:writeln(372);:writeln(373);:writeln(374);:writeln(375);:writeln(376);:writeln(377);:writeln(378);:writeln(379);:writeln(380);:writeln(381);:writeln(382);:writeln(383);:writeln(384);:writeln(385);:writeln(386);:writeln(387);:writeln(388);:writeln(389);:writeln(390);:writeln(391);:writeln(392);:writeln(393);:writeln(394);:writeln(395);:writeln(396);:writeln(397);:writeln(398);:writeln(399);:writeln(400);
:writeln(401);:writeln(402);:writeln(403);:writeln(404);:writeln(405);:writeln(406);:writeln(407);:writeln(408);:writeln(409);:writeln(410);:writeln(411);:writeln(412);:writeln(413);:writeln(414);:writeln(415);:writeln(416);:writeln(417);:writeln(418);:writeln(419);:writeln(420);:writeln(421);:writeln(422);:writeln(423);:writeln(424);:writeln(425);:writeln(426);:writeln(427);:writeln(428);:writeln(429);:writeln(430);:writeln(431);:writeln(432);:writeln(433);:writeln(434);:writeln(435);:writeln(436);:writeln(437);:writeln(438);:writeln(439);:writeln(440);:writeln(441);:writeln(442);:writeln(443);:writeln(444);:writeln(445);:writeln(446);:writeln(447);:writeln(448);:writeln(449);:writeln(450);:writeln(451);:writeln(452);:writeln(453);:writeln(454);:writeln(455);:writeln(456);:writeln(457);:writeln(458);:writeln(459);:writeln(460);:writeln(461);:writeln(462);:writeln(463);:writeln(464);:writeln(465);:writeln(466);:writeln(467);:writeln(468);:writeln(469);:writeln(470);:writeln(471);:writeln(472);:writeln(473);:writeln(474);:writeln(475);:writeln(476);:writeln(477);:writeln(478);:writeln(479);:writeln(480);:writeln(481);:writeln(482);:writeln(483);:writeln(484);:writeln(485);:writeln(486);:writeln(487);:writeln(488);:writeln(489);:writeln(490);:writeln(491);:writeln(492);:writeln(493);:writeln(494);:writeln(495);:writeln(496);:writeln(497);:writeln(498);:writeln(499);:writeln(500);
:writeln(501);:writeln(502);:writeln(503);:writeln(504);:writeln(505);:writeln(506);:writeln(507);:writeln(508);:writeln(509);:writeln(510);:writeln(511);:writeln(512);:writeln(513);:writeln(514);:writeln(515);:writeln(516);:writeln(517);:writeln(518);:writeln(519);:writeln(520);:writeln(521);:writeln(522);:writeln(523);:writeln(524);:writeln(525);:writeln(526);:writeln(527);:writeln(528);:writeln(529);:writeln(530);:writeln(531);:writeln(532);:writeln(533);:writeln(534);:writeln(535);:writeln(536);:writeln(537);:writeln(538);:writeln(539);:writeln(540);:writeln(541);:writeln(542);:writeln(543);:writeln(544);:writeln(545);:writeln(546);:writeln(547);:writeln(548);:writeln(549);:writeln(550);:writeln(551);:writeln(552);:writeln(553);:writeln(554);:writeln(555);:writeln(556);:writeln(557);:writeln(558);:writeln(559);:writeln(560);:writeln(561);:writeln(562);:writeln(563);:writeln(564);:writeln(565);:writeln(566);:writeln(567);:writeln(568);:writeln(569);:writeln(570);:writeln(571);:writeln(572);:writeln(573);:writeln(574);:writeln(575);:writeln(576);:writeln(577);:writeln(578);:writeln(579);:writeln(580);:writeln(581);:writeln(582);:writeln(583);:writeln(584);:writeln(585);:writeln(586);:writeln(587);:writeln(588);:writeln(589);:writeln(590);:writeln(591);:writeln(592);:writeln(593);:writeln(594);:writeln(595);:writeln(596);:writeln(597);:writeln(598);:writeln(599);:writeln(600);
:writeln(601);:writeln(602);:writeln(603);:writeln(604);:writeln(605);:writeln(606);:writeln(607);:writeln(608);:writeln(609);:writeln(610);:writeln(611);:writeln(612);:writeln(613);:writeln(614);:writeln(615);:writeln(616);:writeln(617);:writeln(618);:writeln(619);:writeln(620);:writeln(621);:writeln(622);:writeln(623);:writeln(624);:writeln(625);:writeln(626);:writeln(627);:writeln(628);:writeln(629);:writeln(630);:writeln(631);:writeln(632);:writeln(633);:writeln(634);:writeln(635);:writeln(636);:writeln(637);:writeln(638);:writeln(639);:writeln(640);:writeln(641);:writeln(642);:writeln(643);:writeln(644);:writeln(645);:writeln(646);:writeln(647);:writeln(648);:writeln(649);:writeln(650);:writeln(651);:writeln(652);:writeln(653);:writeln(654);:writeln(655);:writeln(656);:writeln(657);:writeln(658);:writeln(659);:writeln(660);:writeln(661);:writeln(662);:writeln(663);:writeln(664);:writeln(665);:writeln(666);:writeln(667);:writeln(668);:writeln(669);:writeln(670);:writeln(671);:writeln(672);:writeln(673);:writeln(674);:writeln(675);:writeln(676);:writeln(677);:writeln(678);:writeln(679);:writeln(680);:writeln(681);:writeln(682);:writeln(683);:writeln(684);:writeln(685);:writeln(686);:writeln(687);:writeln(688);:writeln(689);:writeln(690);:writeln(691);:writeln(692);:writeln(693);:writeln(694);:writeln(695);:writeln(696);:writeln(697);:writeln(698);:writeln(699);:writeln(700);
:writeln(701);:writeln(702);:writeln(703);:writeln(704);:writeln(705);:writeln(706);:writeln(707);:writeln(708);:writeln(709);:writeln(710);:writeln(711);:writeln(712);:writeln(713);:writeln(714);:writeln(715);:writeln(716);:writeln(717);:writeln(718);:writeln(719);:writeln(720);:writeln(721);:writeln(722);:writeln(723);:writeln(724);:writeln(725);:writeln(726);:writeln(727);:writeln(728);:writeln(729);:writeln(730);:writeln(731);:writeln(732);:writeln(733);:writeln(734);:writeln(735);:writeln(736);:writeln(737);:writeln(738);:writeln(739);:writeln(740);:writeln(741);:writeln(742);:writeln(743);:writeln(744);:writeln(745);:writeln(746);:writeln(747);:writeln(748);:writeln(749);:writeln(750);:writeln(751);:writeln(752);:writeln(753);:writeln(754);:writeln(755);:writeln(756);:writeln(757);:writeln(758);:writeln(759);:writeln(760);:writeln(761);:writeln(762);:writeln(763);:writeln(764);:writeln(765);:writeln(766);:writeln(767);:writeln(768);:writeln(769);:writeln(770);:writeln(771);:writeln(772);:writeln(773);:writeln(774);:writeln(775);:writeln(776);:writeln(777);:writeln(778);:writeln(779);:writeln(780);:writeln(781);:writeln(782);:writeln(783);:writeln(784);:writeln(785);:writeln(786);:writeln(787);:writeln(788);:writeln(789);:writeln(790);:writeln(791);:writeln(792);:writeln(793);:writeln(794);:writeln(795);:writeln(796);:writeln(797);:writeln(798);:writeln(799);:writeln(800);
:writeln(801);:writeln(802);:writeln(803);:writeln(804);:writeln(805);:writeln(806);:writeln(807);:writeln(808);:writeln(809);:writeln(810);:writeln(811);:writeln(812);:writeln(813);:writeln(814);:writeln(815);:writeln(816);:writeln(817);:writeln(818);:writeln(819);:writeln(820);:writeln(821);:writeln(822);:writeln(823);:writeln(824);:writeln(825);:writeln(826);:writeln(827);:writeln(828);:writeln(829);:writeln(830);:writeln(831);:writeln(832);:writeln(833);:writeln(834);:writeln(835);:writeln(836);:writeln(837);:writeln(838);:writeln(839);:writeln(840);:writeln(841);:writeln(842);:writeln(843);:writeln(844);:writeln(845);:writeln(846);:writeln(847);:writeln(848);:writeln(849);:writeln(850);:writeln(851);:writeln(852);:writeln(853);:writeln(854);:writeln(855);:writeln(856);:writeln(857);:writeln(858);:writeln(859);:writeln(860);:writeln(861);:writeln(862);:writeln(863);:writeln(864);:writeln(865);:writeln(866);:writeln(867);:writeln(868);:writeln(869);:writeln(870);:writeln(871);:writeln(872);:writeln(873);:writeln(874);:writeln(875);:writeln(876);:writeln(877);:writeln(878);:writeln(879);:writeln(880);:writeln(881);:writeln(882);:writeln(883);:writeln(884);:writeln(885);:writeln(886);:writeln(887);:writeln(888);:writeln(889);:writeln(890);:writeln(891);:writeln(892);:writeln(893);:writeln(894);:writeln(895);:writeln(896);:writeln(897);:writeln(898);:writeln(899);:writeln(900);
:writeln(901);:writeln(902);:writeln(903);:writeln(904);:writeln(905);:writeln(906);:writeln(907);:writeln(908);:writeln(909);:writeln(910);:writeln(911);:writeln(912);:writeln(913);:writeln(914);:writeln(915);:writeln(916);:writeln(917);:writeln(918);:writeln(919);:writeln(920);:writeln(921);:writeln(922);:writeln(923);:writeln(924);:writeln(925);:writeln(926);:writeln(927);:writeln(928);:writeln(929);:writeln(930);:writeln(931);:writeln(932);:writeln(933);:writeln(934);:writeln(935);:writeln(936);:writeln(937);:writeln(938);:writeln(939);:writeln(940);:writeln(941);:writeln(942);:writeln(943);:writeln(944);:writeln(945);:writeln(946);:writeln(947);:writeln(948);:writeln(949);:writeln(950);:writeln(951);:writeln(952);:writeln(953);:writeln(954);:writeln(955);:writeln(956);:writeln(957);:writeln(958);:writeln(959);:writeln(960);:writeln(961);:writeln(962);:writeln(963);:writeln(964);:writeln(965);:writeln(966);:writeln(967);:writeln(968);:writeln(969);:writeln(970);:writeln(971);:writeln(972);:writeln(973);:writeln(974);:writeln(975);:writeln(976);:writeln(977);:writeln(978);:writeln(979);:writeln(980);:writeln(981);:writeln(982);:writeln(983);:writeln(984);:writeln(985);:writeln(986);:writeln(987);:writeln(988);:writeln(989);:writeln(990);:writeln(991);:writeln(992);:writeln(993);:writeln(994);:writeln(995);:writeln(996);:writeln(997);:writeln(998);:writeln(999);:writeln(1000);
:writeln(1001);:writeln(1002);:writeln(1003);:writeln(1004);:writeln(1005);:writeln(1006);:writeln(1007);:writeln(1008);:writeln(1009);:writeln(1010);:writeln(1011);:writeln(1012);:writeln(1013);:writeln(1014);:writeln(1015);:writeln(1016);:writeln(1017);:writeln(1018);:writeln(1019);:writeln(1020);:writeln(1021);:writeln(1022);:writeln(1023);end.
8L~17L好顶赞！附标准解法：var n,i,ans:s:beginreadln(n);readln(s);ans:=0;for i:=1 to n do
ans:=ans*2+ord(s[i])-48;writeln(ans);end.
Pascal居然没有 strtol 这么方便的东西？
program ex3;var a:array[1..100]
t,k:beginreadln(t);j:=1;i:=0;s:=0;while t&&0 do
k:=t mod 10;
a[i]:=k*j;
t:=t div 10;
j:=j*2;for d:=1 to i do
s:=s+a[d];writeln(s);end.这是我刚学pascal的时候写的程序。。不是最优化的。。希望你能看懂。。
七楼的，打表干什么啊？乘权求和就行了，有时候打表会要注意各种技术性问题的。
var k,a,i,m:
n,s,s1,s2:
c:array[1..999]begin
readln(s1);
for i:=1 to length(s1) do if s1[i]=' '
n:=copy(s1,1,i-1);
s2:=copy(s1,i+1,length(s1));
val(s2,m);
for i:=length(s) downto 1 do if ord(s[i])-58&=0 then c[length(s)-i+1]:=ord(s[i])-48
else c[length(s)-i+1]:=ord(s[i])-55;
for i:=1 to length(s) do if c[i]&&0 then for a:=1 to i-1 do c[i]:=c[i]*m;
for i:=1 to length(s) do k:=k+c[i];
writeln(k);end.
…………………………简单的来了var
a,b,c,d,e，i :type atype=1...10;begin c:=1;readln(a);d:=a;e:=a;i:=0;for i:=1 to a do
i:=i+b;writeln(i);end.
101N初始值=0;读第个1, N=N*2+1;
(N=1);读第二个0,
N=N*2+1; (N=2);读第3个1,
N=N*2+1; (N=5).程序很简单就是读入x个数.N=0;for i=1 to x do
x,N:begin N=0;readln(x);for i:=1 to x do beginread(a);N=N*2+ord[a]-48;readln();writeln(N);end.
你们在讨论什么奇奇怪怪的东西。。。
青铜星玩家
百度移动游戏玩家均可认证(限百度账号),
我来试试爪机伪代码ans=0read nfor i =n-1 downto 0
if x then ans=ans or (1 shl i)write ans谁来帮我调试。。。
登录百度帐号推荐应用