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

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

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

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

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

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