найти сумму положительных нечетных чисел,меньших n. по паскалю

2

Ответы и объяснения

2013-05-19T15:04:12+04:00
uses crt; 
var i,s:integer; 
begin 
s:=0; 
for i:=1 to 100 do 
begin 
if ((i mod 2)=1) then s:=s+i; 
end; 
writeln('summa nechetnych chisel menshe sta ravna ',s); 
readkey;end.
2013-05-19T15:53:09+04:00

а вдруг скажут сделать отрицатильные))

var i,s,n:integer;
begin
s:=0;
read(n);
for i:=-n to n do
begin
if (((i mod 2)=1)and (i > 0)) then s:=s+i;
end;
writeln('summa nechetnych chisel menshe sta ravna ',s);
readln;
end.