Var n,m,i,s: longint; Begin write('задайте первый член последовательности: '); readln(m); Write('задайте n-ый член последовательности: '); Readln(n); s:=0; For i:=m To n Do s:=s+i; writeln('сумма чисел от ',m,' до 'n,' равна: ',s); Readln; End. Тут от m до n
Answers & Comments
Var n,m,i,s: longint;
Begin
write('задайте первый член последовательности: ');
readln(m);
Write('задайте n-ый член последовательности: ');
Readln(n);
s:=0;
For i:=m To n Do
s:=s+i;
writeln('сумма чисел от ',m,' до 'n,' равна: ',s);
Readln;
End.
Тут от m до n