Регистрация
vvi1310
04.12.2022 11:50
Информатика
Есть ответ 👍

Типы баз данных по сохранённых данных

270
326
Посмотреть ответы 1

Ответы на вопрос:

denis20043601
denis20043601
4,6(44 оценок)
Const   n = 20; var   i, e: integer;   f: file of integer; begin   randomize;   assign(f, 'output.txt');   rewrite(f);   writeln('исходный файл');   for i : = 1 to n do   begin       e : = random(20) - 10;       write(f, e);       write(e: 4)   end;   close(f);   reset(f);   writeln;   writeln('обработанный файл');   i : = 0;   while not eof(f) do   begin       read(f, e);       i : = i + 1;       if i mod 2 < > 0 then begin           seek(f, i-1);           write(f, 1);           seek(f, i-1);           read(f, e)       end;       write(e: 4)   end end. тестовое решение: исходный файл   -6    4  -3  -7    6  -1  -4    8  -7  -5    5 -10    5  -1  -9  -7  -5  -1    9    8 обработанный файл     1    4    1  -7    1  -1    1    8    1  -5    1 -10    1  -1    1  -7    1  -1    1    8

Популярно: Информатика