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

составить программу паскаль для вычисления суммы нечетных чисел от 1 до заданного пользователем числа n. Спасибо )

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

 Program Summa;  

var s,i,n:integer;        

begin 

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

readln(n);

s:=0;

for i:=1 to n do

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

writeln;

writeln(Сумма нечётных чисел равна:,s);

readln; {для паузы}

end.