Найти сумму всех целых чисел от 1 до n. нужен алгоритм, а не программа! p.s.: алгоритм на цикл "до".

(199-99)*100=1000n=4       s=1+2+3+4

Var s,i,n: integer; begin readln(n); for i: =1 to n do s+=i; writeln(s); end.

11,11 (x cc) =x+1+x^-1+x^-2 0,1111=x^-1+x^-2+x^-3+x^-4 x+1+x^-1+x^-2=16*(x^-1+x^-2+x^-3+x^-4)   - (общий   знам. x^-4) x^5+x^4+x^3+x^2=16x^3+16x^2+16x+16 x^5+x^4-15x^3-15x^2-16x-16=0 x^4(x+1) - 15x^2 (x+1) -16(x+1)=0 (x+1)*(x^4-15x^2-16)=0 1) x+1=0   x=-1 (не удов. усл.) 2) x^4-15x^2-16=0     (y=x^2)     y²-15y-16=0 d=225+64=289     √d=17 y1=(15+17)/2=16   x1=4       x2 =-4 (не уд. усл.) y2< 0 (не уд. усл)     ответ   х=4

{pascal abc.net 3.2   входной текстовый файл с числами ч/з один пробел.   (в конце не должно быть пробелов! ) } const     f_in_name = 'd: \in9.txt';     f_tmp_name = 'd: \tmp.tmp'; var  f_in,f_out: text;   i, k: integer; begin   assign(f_in, f_in_name);   assign(f_out, f_tmp_name);   reset(f_in); rewrite(f_out);   k : = 0;   while not eof(f_in) do begin     read(f_in, i); k : = k + 1;     if k mod 2 < > 0 then write(f_out, ' ', i);   end;   close(f_out);   close(f_in);   deletefile(f_in_name);   renamefile(f_tmp_name, f_in_name); end.