Free Pascal（Pascal）题目输入格式：两个正整数，分别表示a和b（1≦a≦b≦1

Free Pascal（Pascal）题目

输入格式：两个正整数，分别表示a和b（1≦a≦b≦1000000）

输出格式：一个整数，从a到b之间（包含a和b）的所有整数的乘积的末尾的零的个数
「例如」a＝1；b＝7那么从a到b之间（包含a和b）的所有整数的乘积就是1×2×3×4×5×6×7＝5040，答案就是1，不是2。

输入输出样例1 ‖ 输入输出样例2
lxl.in lxl.out ‖ xlx.in xlx.out
1 10 2 ‖ 4 25 6
「数据范围」1≦a≦b≦10∧6。
注意：是Free Pascal（Pascal）问题，不要给我弄出来一个c语言的代码！我要的是Free Pascal的源码，是源码！最好加上注释
请问以上问题怎么做？

举报该问题

第1个回答 2015-05-02

追答

为什么会看不到？

追问

能看到了，刚才不知道为什么

你这个程序会报错，数据超出限制

额不对，不适合个问题，是输入的b比a大时，会输出复数

你能告诉我，函数开头就返回了0为什么还会返回真正的数值

吗

你还能帮我解释一下程序吗

追答

真不知道你是怎么做的，偏还让我打一遍。

追问

不好意思

额(⊙o⊙)…你的程序...如果输入的a和b的数值相同，那么就会输出0。例如：输入
3000 3000
本应该输出
3
但你的程序却会输出
0

本回答被提问者采纳

相似回答

...输入格式:两个正整数,分别表示a和b(1≦a,b≦1答：回答：楼上的程序中的k:=k div 5;应改为n:=n div 5;

如何用Free Pascal编程,输入a,b 输出b,a答：program shuchuba;{自己可以起一个程序名} var a,b:real;{定义a,b为实数类型，也可定义长整型longint或整数型integer,看题目要求} begin readln(a,b);{读入a,b} writeln(b,' ',a);{输出b,a} readln;{暂停的意思，可加可不加，如果加，运行后直接可看结果，如果不加，还得再按才能看结...

FREE PASCAL,输入两个数,求最小公倍数答：若s能分别被m，n整除，则s是m，n的公倍数。现让s：＝s+m，i从1开始，逐步增加i的值，显然s能被m整除，若随着i的增加，在某一个i时，s能被n整除，即求得m，n的最小公倍数是s program aa;var m,n,i,s:integer;begin writeln(m,n);readln(m,n);i:=1;s:=m;while s mod n <...

free pascal题目答：5、自然数的立方可以表示为两个整数的平方之差,比如43=102-62,请输出自然数1996的这种表示形式。(这里的43用自乘三次的形式4*4*4表示;102也用自乘二次的形式10*10表示)6、用字符输出一个猪锦佳的头像。7、 a,b,c分别等于1、12、123,把它们按向左对齐、向右对齐的方式打印出来。8、 输入一个四位...

一道Free Pascal题目答：dp就行了，贪心可能出不来正确的答案，还有小数。。。program dp;var i,j,k:integer;a:array[1..6] of real;f:array[0..6,0..100] of integer;function max(a,b:integer):integer;begin if a>b then max:=a else max:=b;end;begin for i:=1 to 6 do begin read(a[i]);a...

输入两个正整数A, B, 求A , B的最小公倍数。答：program ab;var A,B,i,s:integer;begin write('请输入两个自然数’）；readln(A,B);i:=1;s:=m*i;while s mod B<>O do begin i:=i+1;s:=m*i;end;writeln('[',A,',',B,']=',s)end.

Free Pascal 的题目答：var i,j:integer;t: longint;begin for i:=0 to 4 do begin t:=1;for j:=1 to m[i]-1 do t:=t*2;t:=(t*2-1)*t;write (t,' ');end;writeln;end.答案：6 28 496 4>Program ex4;var i,s,q:integer;begin for i:=1000 to 9999 do begin s:=i div 100;q:=i ...

大家正在搜

题目的含义答题格式大标题小标题格式示例自己输入题目刷题软件论文题目格式输入题目然后出答案输入题目出答案的软件输入题目生成文章小猿搜题题目导出word 小标题格式

Free Pascal（Pascal）题目输入格式：两个正...

pascal编程:输入两个整数a,b,输出它们的和(a,b<...

描述给两个正整数a,b(1<=a,b<=10^100),求...

free pascal 中a[1]是什么意思?

free pascal输入正整数a,b,c，输出a/b的小数...

PASCAL 新人题给出两个不下降序列a、b和一个整数K，...

帮忙用回溯算法写一道free pascal题

free pascal题目奇怪的电梯用宽度搜索