Question

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

Answer 1

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.

---------------------------через while---------------------

var

 m,n,i,s : integer;

begin

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

 readln(m, n);

 s:=0;

 while m <=n do begin

   if m mod 2 <> 0 then

     s:=s+m;

   inc(m);

 end;  

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

end.