Question

Составьте и запишите КОМПЬЮТЕРНУЮ программу на языке программирования Паскаль для решения следующей задачи: вычислить сумму всех натуральных чисел от заданного числа А до заданного пользователем числа В

Answer 1

Попробуй это
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.