DELPHI算术题目..有点理不清思绪

来源：百度知道 编辑：UC知道 时间：2024/06/24 06:47:54
题目:编程实现:输入两个整数.求这两个数之间的所有奇数之和:
VAR A,B,C :INTEGER
BEGIN
C:=''
下面的代码实在想不出.如何把AB之间的奇数定义出来..求达人帮忙...谢谢

需要使用循环，程序如下：

Program YgB;
var a,b,s,i:integer;
begin
write('依次输入两个整数A、B：');
readln(a,b);
s:=0;{先设置和为0}
for i:=a to b{i依次为A到B之间的每一个数进行下面begin、end之间的语句}
begin
if i mod 2=1 then s:=s+i;{如果这个i是奇数，那么把他累加到变量s里面}
end;
writeln('A和B之间所有的奇数之和为:',s);
end.