pascal语言 1~N中能被5整除且至少有一位数字是5的所有整数的个数

来源：学生作业帮助网编辑：作业帮时间：2024/04/30 04:22:28

pascal语言 1~N中能被5整除且至少有一位数字是5的所有整数的个数
pascal语言 1~N中能被5整除且至少有一位数字是5的所有整数的个数

pascal语言 1~N中能被5整除且至少有一位数字是5的所有整数的个数
function isOk(n :integer) :boolean;
var
i :integer;
begin
result := pos('5',inttostr(n))>0;
end;
function myFunc(n:integer) :integer;
var
i :integer;
begin
result := 0 ;
for i := 1 to n do
begin
if (i mod 5 = 0) and isok(i) then
inc(result);
end;
end;

pascal语言 1~N中能被5整除且至少有一位数字是5的所有整数的个数 n有多少个能被3整除,且至少有一位数字是5的数.pascal 语言,1——n之间有多少个能被3整除,且至少有一位数字是5的数.输入文件：一个整数n 输出文件：符合要求的整数的个数 Pascal语言某自然数N(1 找出数字之和等于6且能被5整除的所有两位数(用free pascal语言回答) 计算1—1000之间能同时被3和5整除的整数的和.pascal语言急! pascal语言编程问题（free pascal求1—N中的素数的个数.(1 用pascal语言编程：输出n(n PASCAL语言求程序：对于给定的n,求1至n中有多少个数是质数 pascal求N以内能被3,7整除的数的和用free pascal 求一个数（n）以内能被3整除且能被7整除的所有数的和.要源码 pascal 输入n(1 pascal 输入n(1 整除3,5,7 要PASCAL 用C语言,求出1-1000中能被3整除,但不能被7整除,且至少有一位数为5的所有整数大大多的题目(PASCAL语言)1．给出一个自然数N（1 pascal语言中solve的意思是啥举个例子：solve（1,n,1）是啥意思用PASCAL语言编写一个求1+2+3+...+N的程序 pascal编程求1+3+5+...+n一定要是自己是过的,要用pascal! 找出1－N中能被5整除且至少有一位数字是5的所有整数的个数.N