Эквивалентен ли оператор: for i : =i1 to i2 do written(ord(i )) последовательность операторов : i : =i1; repeat written(ord(i)); i : =succ(i): until i> i2 агргументируйте ответ

Почти эквивалентен. for i : = i1 to i2 do writeln(ord(i)) (у вас опечатка в writeln? ) выводит ord(i1), ord(i1 + 1), ord(i1 + 2), ord(i2 - 1), ord(i2). во втором случае сначала i = i1, выводится ord(i1), и i увеличивается на 1. так будет продолжаться до тех пор, пока i после увеличения не станет больше i2, т.е. (если всё целое) i2 + 1. выводы будут совпадать, но переменная i после выхода из цикла может принимать разные значения: в первом случае она равна i2, во втором i2 + 1. однако лучше переменную цикла вне цикла не использовать, тогда никакой разницы между двумя конструкциями не будет.

var

i: integer;

s: real;

m: array[1..2,1..6] of real;

begin

s: =0;

for i: =1 to 6 do

begin

readln(m[1,i]);

readln(m[2,i]);

s: =s+3.14*m[1,i]*m[1,i]*m[2,i]*1200;

end;

writeln(s);

end.

 

const

  n=10;  

var

  a: array[1..n] of integer;

  i,x,k,j,s: integer;  

begin

randomize:

for i: =1 to n do a[i]: =random(255);     {формируем случайный массив}

for i: =1 to n do write(a[i],' ');                         {выводим этот массив его на экран}

writeln('x='); read(x);                                                 {вводим x, в программе}

for i: =1 to n do if x=a[i]                     {если х=a[i] тогда}

then for j: =i to n do                                                  {начинаем новый цикл с i до n}

              s: =s+a[j];                                                                 {вычисляем сумму}  

writeln(s);                                        

end;