Информатика, вопрос задал klimenkolyy , 1 год назад

СРОЧНО | ТОЛЬКО ПАСКАЛЬ | ЗАРАНЕЕ СПАСИБО
Составьте и отладьте программу для вычисления количества всех положительных нечётных чисел от -9 до 33

Ответы на вопрос

Ответил UnityFly
1

Ответ:

Объяснение:uses crt;

var

 summa,i:integer;

begin

 summa:=0;

 i:=0;

 while i<33 do

 begin

   if i mod 2 <>0 then  

   begin

     summa:=summa+i;

   end;

 inc(i);

end;

writeln('summa=',summa);

readln;

end.

fedrfedr: summa:=summa+i; -> summa:=summa+1; так как нужно считать количество чисел, а не их сумму; while i<33 do - скорее всего нужно знак поставить <= чтобы до 33 включительно считалось
klimenkolyy: Спасибо ребята,я сильно благодарен))
Предыдущий вопрос
Следующий вопрос
Новые вопросы