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.

Answer 2

или это
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.

Answer 3

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

Answer 4

или
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.

Answer 5

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