Предмет: Информатика, автор: tulipovt

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


tulipovt: while

Ответы

Автор ответа: mirageKZ
0

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.

Приложения:

tulipovt: не через for можешь решить?
mirageKZ: через что надо? while? repeat?
mirageKZ: добавил через while
tulipovt: а где?
mirageKZ: прям в ответе
Похожие вопросы
Предмет: Қазақ тiлi, автор: эльзатортик