задачи и блок-схемы(

[FоXy]

1. Задано целое положительное число N>1. Вычислить сумму четных целых чисел в диапазоне 1 ..N. Для решения задачи использовать счетный цикл.

2. Задано целое число N.
Если N>0, найти сумму целых чисел в диапазоне 1..N
Если N<0, найти сумму целых чисел в диапазоне N..-1
Если N=0, вывести на экран соответствующее сообщение.
Для решения задачи использовать цикл с предусловием

[Jesus56]

в алгоритме тебе нужно будет решать в ветвящемся алгоритме!!!

цикл с предусловием!
В циклах с предусловием сначала проверяется условие, если условия верно, то выполняется тело цикла и снова проверяется условия и так повторяется до тех пор пока условия не станет ложным.

Пока<условие> повторять
начало
<тело цикла>
конец

[fenix-elite]

1)

  Readln(n);
  i := 0;
  while (i <= n) do
  begin
      sum := sum + i;
      i := i + 2;
  end;
  Writeln(sum);

2)

var
  n,i,sum : integer;

begin
  i := 0;
  Readln(n);
  if n <> 0 then
   begin
    while (i <= Abs(n)) do
      begin
        sum := sum + i;
        Inc(i)
      end;
    if n < 0 then sum := -sum;
    Writeln(sum);
   end
  else
    Writeln('n < 0');
  readln;
end.

[FоXy]

[QUOTE=fenix-elite;628596]1)

  Readln(n);
  i := 0;
  while (i <= n) do
  begin
      sum := sum + i;
      i := i + 2;
  end;
  Writeln(sum);

так это ж цикл с предусловием