СРОЧНО ДАМ 35 БАЛОВ ПОМОГИТЕ СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЕ ФУНКЦИЮ НАХОЖДЕНИЯ СУММЫ...

Question

СРОЧНО ДАМ 35 БАЛОВ
ПОМОГИТЕ СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЕ ФУНКЦИЮ НАХОЖДЕНИЯ СУММЫ НЕЧЕТНЫХ ЧИСЕЛ ,ДИАПОЗОНОМ 1.100;

Comments

Т.е. нужна сумма 1+3+5+..+99 ?

---

Наверно

---

так это сумма членов арифметической прогрессии)))

---

Ну хз,такую программу дали диопазонов 1..100;

---

Нверно от 1 до 100 вроде

---

что нужно выводить на экран в результате работы программы?

---

Хз

---

Чтобы наверно выдавалось нечетное число с диапозоном от 1 до 100 вроде

Answer 1

Var
  i,s:integer;
begin
  s:=0;
  i:=1;
  while i<=100 do begin<br>    s:=s+i; i:=i+2
  end;
  Writeln('Сумма нечетных чисел на [1;100] равна ',s)
end.

Тестовое решение:
Сумма нечетных чисел на [1;100] равна 2500

Answer 2

Var a,b,c:integer;
begin
b:=0;
for a:=1 to 100 do begin
if (a mod 2 <> 0) then b:=a+b;
end;
writeln('сумма нечётных чисел в заданном диапазоне = ', b);
end.

Comments

А еще одну поможите?

---

с удовольствием

---

СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЕ НАХОЖДЕНИЯ ПЕРИМЕТРА ПРЯМОУГОЛЬНИКА ПО ЗАДАННЫМ КООРДИНАТАМ ЕГО ВЕРШИН АBCDE