Даны два целых числа a и b причем b больше a. найти сумму всех нечетных чисел больших a, но меньших b

Question

Информатика

Анюра

23 января, 10:21

Даны два целых числа a и b причем b больше a. найти сумму всех нечетных чисел больших a, но меньших b

+4

Ответы (1)

Знаете ответ?

Тодя · Answer 1

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 20) then s:=s+i;

writeln (s) ; end.