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

или это Program z1; var i, n, m: integer; begin write('введите любое натуральное число: '); readln(n); for i:=1 to n do begin m:=m+i; end; writeln('сумма всех натуральных чисел не превышающих ',n,' - ',m); end.

var a,b:real; s,i,n: integer;beginreadln(a,b);n:=trunc(b);S:=0;for i:=(a) to n doS:=i+S;writeln(s);end.

или Program zadacha1;var s,n : integer;begin writeln('Введите N'); read(n); s:=0; while (n<>0) do begin inc(s,n); dec(n); end; writeln('Сумма = ',s);end.

Они все подходят?)

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