Дано натуральное число n.Найти сумму всех нечетных чисел от 1 до nПОМОГИТЕ ПОЖАЛУЙСТА! У...

Question

Дано натуральное число n.Найти сумму всех нечетных чисел от 1 до n

ПОМОГИТЕ ПОЖАЛУЙСТА! У МЕНЯ КОНТРОЛЬНАЯ!! ЗАРАНЕЕ БЛАГОДАРЮ!!)

Answer 1

Program chisla;

Uses Crt;

var i,n,s:longint;

begin

   clrscr;

    write('Введите n:');

    readln(n); 

    s:=0; 

    for i:=1 to n do 

 

       if (i mod 2)<>0 then s:=s+i;   

 

   writeln('Сумма всех нчётных чисел от 1 до n равна:',s) 

   readkey;

 

end.