Заранее Какой оператор цикла желательно использовать для записи алгоритмической конструкции, изображённой на схеме?
1. for <параметр> := <начальное значение> to <конечное значение> do <оператор>
2. repeat <оператор 1, ...> until <условие>
3. while <условие> do <оператор»​

while

Объяснение:

var n,a,b,c,d,s: integer;

begin

  write('n='); readln(n); {n -   даанное 4-хзначное число}

  a: =n mod 10; {последняя, 4-я, цифра числа}

  b: =(n div 10) mod 10; {предпоследняя, 3-я, цифра}

  c: =(n div 100) mod 10; {2-я цифра}

  d: =n div 1000; {1-я цифра}

  s: =a+b+c+d;

    writeln('s=',s);

end.

var i: integer;

s,z: real;

begin

    z: =8;

    for i: = 2 to 7 do begin

          s: =s+z;

          z: = z*(1+10/100);

    end;

    writeln(s);

end.