Var f:file of integer; a,i,k,n:integer; begin randomize; assign(f,'file'); rewrite(f); repeat write('Четное количество элементов: '); readln(n); until(n>1) and (n mod 2=0); for i:=1 to n do begin a:=random(100); write(f,a); end; writeln('Содержание исходного файла:'); reset(f); while not eof(f) do begin read(f,a); write(a,' '); end; close(f); writeln; reset(f); seek(f,filesize(f)div 2); truncate(f); writeln('Содержание измененного файла:'); reset(f); while not eof(f) do begin read(f,a); write(a,' '); end; close(f); readln end.
Цикл foruses Math;var i: integer; sum: real;begin for i := 1 to 100 do Sum := Sum + Sqr(i); Writeln(Sum);end.Цикл while (предусловие)uses Math;var i: integer; sum: real;begin while i <= 100 do begin Sum := Sum + Sqr(i); i := i + 1; end; Writeln(Sum);end.Цикл repeat..until (постусловие)uses Math;var i: integer; sum: real;begin repeat i := i + 1; Sum := Sum + Sqr(i); until i >= 100; Writeln(Sum);end.
страшно очень страшно мы не знаем что это такое если б мы знали что это такое мы не знаем что это такое!Объяснение: