Question

Пожалуйста помогите "написать программу с использованием подпрограммы для вычисления суммы s=1+3+5..+a" (ПАСКАЛЬ)

Answer 1

var a:integer;

function SumN (n:integer):integer;

 var

   i,sum:integer;

begin

 i:=1;

 sum:=0;

 while i<=n do  

   begin

     sum:=sum+i;

     i:=i+2;

   end;

 if n mod 2 = 0 then sum:=sum+n;

 sumN:=sum;

end;

begin

 readln(a);

 writeln('Сумма нечётных до "a"(вкулючая в сумму "a", даже если оно чётное): ',sumN(a));

end.