作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/05/02 06:25:07
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;