Эквивалентен ли оператор: 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. однако лучше переменную цикла вне цикла не использовать, тогда никакой разницы между двумя конструкциями не будет.

теперь не плагиат

program pr; var c: integer; beginwriteln('введите число с'); readln(c); writeln('остаток от целочисленного деления числа ',c,' на 10 в квадрате равен ',sqr(c mod 10)); end.

var

i: integer;

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

function fn(x: integer): integer;

begin

if x mod 10 = 4 then fn: =x div 2

else fn: =x;

end;

begin

for i: =1 to 20 do

readln(a[i]);

for i: =1 to 20 do

begin

a[i]: =fn(a[i]);

writeln(a[i]);

end;

end.