Создать файл x компонентами которого являются элемента массива m. переписать из файла x в файл y все компоненты, которые стоят на четных местах. прочитать файл y.m = (0, 1; 5, 6; 0.8; 2, 4; 7, 3; 6, 8; 0, 5; 2, 3; )​

const m: array[1..8] of real = (0.1, 5.6, 0.8, 2.4, 7.3, 6.8, 0.5, 2.3);

var x,y : file of real;

n: real; i: byte;

begin

assign(x,'x.dat');

assign(y,'y.dat');

rewrite(x);

for i: =1 to 8 do write(x, m[i]);

close(x);  

reset(x);

rewrite(y);

i : = 1;

while not eof(x) do begin

read(x, n);

if not odd(i) then

write(y, n);

i : = i + 1;

end;

close(x);

close(y);

  reset(y);

while not eof(y) do begin

read(y, n);

write(n: 5: 1);

end;

writeln;

close(y);

end.

для того чтобы написать текст в две колонки, нам потребуется сделать три щелчка мышью. а для того чтобы разбить уже введённый текст на две колонки, нам потребуется произвести всё те же три щелчка мышью. но если, как говорят, цепляться к словам, то тогда четыре щелчка.

всё это сказано с юмором, желая подчеркнуть то, насколько процесс ввода текста с разделением его на две колонки прост, в сравнении, например, с выборочной нумерацией многостраничного документа.

имеющаяся специальная опция позволят не только сразу вводить текст колонками, и даже тремя, а не только двумя, но и разбить на колонки любую часть готового текста, введённого самым обычным способом.

а давайте с готового текста и начнём.

итак, документ состоит из одной страницы. мы ввели текст, и вдруг выяснилось, что текст на странице должен располагаться в две колонки. перед тем как начать действовать, обратим внимание на линейку над страницей и на положение ползунков регулировки полей:

итак, взглянув на линейку, уверенным движением руки направляем курсор мыши в верхнее меню и щелчком разворачиваем вкладку «разметка страницы», где вторым щелчком по значку опции с названием «колонки», открываем окошко с вариантами:

третьим щелчком выбираем вариант «две»:

Var   n, m, p, k, sum, x: integer;   s: string;   c, i: byte; begin   write('число: ');   read(n);   m : = n;   k : = 0;   while m < > 0 do   begin       p : = m mod 10;       k : = k + 1;       m : = m div 10;   end;     str(n, s);   c : = 0;   for i : = 1 to length(s) do       if s[i] in ['0', '2', '4', '6', '8'] then           inc(c);     x : = n;   sum : = 0;   while (x < > 0 ) do   begin       sum : = sum + (x mod 10);       x : = x div 10;   end;     writeln('количество чисел: ', k);   writeln('количество четных чисел: ', c);   writeln('cумма чисел : ', sum); end.