Помогите решить 3 задачки...

[Goldberg]

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

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

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

[Stilet]

По первой например так:

for i:=5 to n do if i div 2<>0 then summ:=summ+i;

Для остальных это ядро. Добавиш сюда пару IF и будет счастье )

[Goldberg]

Подскажите как во второй задаче добиться счета: Если N<7, найти сумму целых чисел в диапазоне N .. 6

[|{ot]

Можно вот так попытатся:

n ,idx ,result : integer;
.....
result:=0;
if n<7 then 
    for idx:=n to 6 do result:=result+idx;

[Goldberg]

Спасибо за ответы!!!

1 и 2 решены, а вот с 3-й проблемы. Как задать цикл с постусловием: Если N1 >N2, найти сумму целых чисел в диапазоне N1 ... N2

[|{ot]

Если N1 >N2, найти сумму целых чисел в диапазоне N1 ... N2
Если N2 <N1, найти сумму целых чисел в диапазоне N2 ... N1

Как то условия одинаковые!?

Ну а вообще:

var res ,i : integer;
...
if n1<n2 then 
    for i:=n1 to n2 do res:=res+i;

[Goldberg]

Условия вроде так и должны быть, сейчас не могу перепроверить. Разобраться бы с этим циклом....

[Goldberg]

Нодо с постусловием. Помоему это цикл: Repeat - Until...

[puporev]

Помоему это цикл: Repeat - Until...

Хорошо, хоть это слышал.

uses crt;
var n1,n2,s:integer;
begin
clrscr;
write('n1= ');readln(n1);
write('n2= ');readln(n2);
if n1=n2 then writeln('N1+N2')
else if n1<n2 then
  begin
    s:=0;
    while n1<=n2 do
      begin
       s:=s+n1;
       n1:=n1+1;
      end;
    writeln('s=',s);
  end
else if n2<n1 then
  begin
    s:=0;
    while n2<=n1 do
      begin
       s:=s+n2;
       n2:=n2+1;
      end;
   writeln('s=',s);
  end;
readln
end.