Question

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

Answer 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.