Задано два целых числа А и В. Найдите суммы нечетных чисел от А до В. Составить программу.

Question

Информатика

Улита

25 июня, 17:23

Задано два целых числа А и В. Найдите суммы нечетных чисел от А до В. Составить программу.

+4

Ответы (1)

Знаете ответ на вопрос?

Фелициана · Answer 1

program mm;

var a, b, i, summ:integer;

begin

Writeln ('Введите А и В') ;

readln (a, b) ;

for i:=a to b do

if i mod 2 0 then

summ:=summ+i;

Writeln ('Сумма = ', summ) ;

end.