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

Question

Информатика

Федюка

12 июня, 02:54

Даны два целых числа 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.