求用PASCAL编程 统计某个自然数区间,到底有多少个3的倍数,输入两个自然数M和N,保证M小于N,

发布时间：2021-02-25 11:55:38

求用PASCAL编程 统计某个自然数区间,到底有多少个3的倍数,输入两个自然数M和N,保证M小于N,表示M到N的区间,包含M及N输出一个自然数X,表示M到N之间是3倍数的个数

网友回答

program Project1;
varm,n,x,i:Integer;
beginReadln(m,n);
x := 0;for i := m to n do
if i mod 3 = 0 then Inc(x);
Writeln(x);
Readln;
end.
以上问题属网友观点，不代表本站立场，仅供参考！