1)Найдите сумму натуральных...

1)Найдите сумму натуральных нечетных чисел не превышающих n!!!!Это нужно сделать циклом for. 2) Составьте программу,которая производитсуммирование произвольного количества целых чисел вводимых с клавиатуры.Концом последовательности служит ввод отрицательного числа.Программу составьте двумя способами: использую цикл с предусловием и цикл с постусловием

 

1)
 
var
n, i, s:integer;
begin
s := 0;

readln(n);
if n mod 2 = 0 then
n := n div 2 -1
else
n := n div 2;

for i := 0 to n do
begin
s := s + (1+2*i)
end;
write(s)
end.
 
2)
 
var
a, s: integer;

begin
s := 0;
read(a);
while (a >= 0) do
begin
s := s + a;
read(a)
end;
writeln;
write(s)
end.
 
 
var
a, s: integer;

begin
s := 0;
a := 0;
repeat
s := s + a;
read(a)
until a < 0;
writeln;
write(s)
end.