Question

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

Answer 1

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.

Answer 2

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