Ответ(ы) на вопрос:
Гость Var
a,b,i,c:integer;
Begin
write('Введите числа a и b (a<=b) ');
readln(a,b);
if a>b then write('Повторите ввод') else Begin
for i:= a to b do
if (i mod 2) = 1 then Begin
Write(i,' ');
c:=c+i;
End;
Writeln;
if c = 0 then write('Нечётных чисел в этом диапазоне нет') else
write('Сумма этих чисел равна ',c);
End;
End.
Не нашли ответ?
Похожие вопросы