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.