Question

Используя цикл while, напишите программу определения суммы всех нечётных чисел от 1 до 99 включительно​

Answer 1

Ответ:

program n6;

var q,w:integer;

begin

 q:=1;

 while q<100 do begin

 w:=w+q ;  

  q:=q+2;  

   

               end;

   write(w);

 

 

end.

Объяснение: