Question

Найти сумму положительных нечетных чисел, меньших 100.
(Программа Паскаля скорее всего) 

Answer 1

var i,sum:integer;

begin

sum:=0;

for i:=1 to 100 do

if i mod 2 = 1 then sum:=sum+i;

writelnI(sum);

end.

 

Вопросы в ЛС