8 класс Сосативиьь задачу язык паскаль:
Найти сумму нечётных чисел от m до n.
БЫСТРЕЕ МОЛЮ

Pascal

var

 m,n,i,s : integer;

begin

 writeln('Введите m и n (m<n):');

 readln(m, n);

 s:=0;

 for i:=m to n do

   if i mod 2 <> 0 then

     s:=s+i;

 writeln('Сумма нечётных чисел =',s);

end.