Комментарии 4

• Мой варик в догонку)

  var a,b,i,n,k:integer; begin readln(a); readln(b); n:=1; k:=a; for i:=a+1 to b do begin a:=a+k+n; n:=n+1; end; writeln(a); end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14

  var a,b,i,n,k:integer; begin   readln(a);   readln(b);   n:=1;   k:=a;   for i:=a+1 to b do    begin     a:=a+k+n;     n:=n+1;    end; writeln(a); end.

  Ответить

• долго думал над этим решением… столько всего сразу.. несколько раз садился за ответ… но всё было не то настроение 🙂
  начну с того что решение рабочее… но сильно запутанное… если его распутать то получиться решение в шапке 🙂
  О чём это я 🙂
  ну например k:=a; всё ок. Но зачем дальше :
  a:=a+k+n;
  логичнее k:=k+a+n;
  Почему я считаю это логичнее? при таком подходе не меняется назначение переменной a. В вашем решении она из входных данных превратилась в сумму… притом всё равно нам пришлось использовать дополнительную переменную. Это при больших решениях может запутать.

  И того получиться:

  for i:=a+1 to b do begin k:=k+a+n; n:=n+1; end;

  1 2 3 4 5

  for i:=a+1 to b do    begin     k:=k+a+n;     n:=n+1;    end;

  далее… есть такая весчь…
  for i:=a+1 to b do
  …
  n:=n+1;
  …
  это у нас два счётчика… иногда конечно приходиться это делать, особенно когда второй счётчик отличается от первого методом увеличения числа.
  А здесь получается счётчики дублируют друг друга.
  то есть в этом выражении «k:=k+a+n;» n можно заменить на i-a
  и получится k:=k+a+(i-a)
  k:=k+a+i-a
  k:=k+i;

  for i:=a+1 to b do begin k:=k+i; end;

  1 2 3 4

  for i:=a+1 to b do    begin     k:=k+i;    end;

  На что бы это могло походить… а вот же Sum:=Sum+i; из моего примера в шапке…
  Как я и обещал я довёл ваше решение до моего…

  Ответить

• здравствуйте,а можно пожалуйста решение этой задачи операторов while

  Ответить

  • Здравствуйте. Можно и while, но это менее красиво 🙂 :

    Delphi/Pascal

    program For7; var A,B,Sum:Integer; begin Write('A: '); Readln(A); Write('B: '); Readln(B); sum:=A; while (A<B) do begin inc(A); Sum:=Sum+A; writeln(A,' ',Sum); end; Writeln(Sum); end.

    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

    program For7; var   A,B,Sum:Integer; begin Write('A: '); Readln(A); Write('B: '); Readln(B); sum:=A; while (A<B) do   begin    inc(A);    Sum:=Sum+A;    writeln(A,' ',Sum);   end; Writeln(Sum); end.

    Ответить