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

01042006кристина0104 01042006кристина0104    2   09.12.2021 12:06    0

Ответы
asqbwez asqbwez  09.12.2021 12:10

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.


8 класс Сосативиьь задачу язык паскаль: Найти сумму нечётных чисел от m до n.БЫСТРЕЕ МОЛЮ
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика