1)Найдите сумму натуральных нечетных чисел не превышающих n!!!!Это нужно сделать циклом...

Question

1)Найдите сумму натуральных нечетных чисел не превышающих n!!!!Это нужно сделать циклом for.

2) Составьте программу,которая производит суммирование произвольного количества целых чисел вводимых с клавиатуры.Концом последовательности служит ввод отрицательного числа.Программу составьте двумя способами: использую цикл с предусловием и цикл с постусловием

Answer 1

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.