Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.