даны два целых числа a и b причем b больше a. найти сумму всех нечетных чисел больших a, но меньших b
Ответы
Ответ дал:
0
var
s,i,a,b:integer;
begin
writeln('введите a и b');
readln(a,b);
s:=0;
for i:=a+1 to b-1 do
if (i mod 2<>0) then s:=s+i;
writeln(s);end.
s,i,a,b:integer;
begin
writeln('введите a и b');
readln(a,b);
s:=0;
for i:=a+1 to b-1 do
if (i mod 2<>0) then s:=s+i;
writeln(s);end.
Похожие вопросы
2 года назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад
10 лет назад