. Работа с файлами С текстового редактора создать файл text1.txt и заполнить словами из латинских букв (не менее 30 слов).
Файл number1.txt программно заполнить случайными целыми числами, принадлежащими диапазону от
-100 до 100. Количество чисел в файле задается с клавиатуры. Количество чисел в каждой строке является
произвольным числом из диапазона от 0 до 10 и задается с функции rand(). Вывести числа на
консоль, сохранив разбиение на строки, соответствующее файлу number1.txt.
При реализации программы необходимо для заполнения файла number1.txt случайными целыми числа-
ми использовать заголовочный файл, содержащий функцию для заполнения файла. При работе с файлом,
заполненным словами, можно использовать функции работы со строками. При выводе результата в файл
number3.txt сохранить разбиение на строки.
Записать в файл total.txt сначала все элементы файла number2.txt, выровненные по правому краю, а за-
тем все элементы файла text2.txt, выровненные по центру. Переименовать файл total.txt (новое имя файла
вводится с клавиатуры).
Вывести на консоль сначала все элементы файла number2.txt, выровненные по правому краю, а затем
все элементы файла text2.txt, выровненные по центру.
Варианты
8. Найти разность пар соседних элементов файла number1.txt. Результат вывести в файл number3.txt и
на консоль. В конец файла number2.txt добавить слова "Result = " и количество элементов, равных
нулю, вывести полученный результат на консоль.
Вывести все слова файла text1.txt, предварительно преобразовав каждое из них по следующему
правилу: оставить в слове только первые вхождения каждой буквы. Результат записать в файл
text2.txt.
Program Resheto;
const n=954530;
var i,j,last,k:integer;
b:array[1..n] of boolean;
begin
for j:=1 to n do b[j]:=true; ///сначала все числа не вычеркнуты
b[1]:=false; ///единицу вычеркиваем сразу
i:=2;k:=0; ///k - количество найденных простых чисел
while i*i<=n do
begin
for j:=i+1 to n do
begin
if (b[j]) then ///если число уже вычеркнуто,то ничего не делаем
begin
if (j mod i=0) then begin last:=j; b[j]:=false; end; ///если число делится,то запоминаем его в last и вычеркиваем из решета
end;
end;
inc(i);
end;
for j:=2 to n do if b[j] then inc(k); ///считаем количество
writeln; writeln('Последнее вычеркнутое: ',last);writeln('Найдено простых чисел: ',k);
for j:=2 to n do if b[j] then write(j,' '); ///выводим все простые числа через пробел
end.
Символ – минимальная единица текстовой информации: цифра, буква, знак препинания и т.д.
Слово – произвольная последовательность символов (букв, цифр и др.), ограниченная с двух сторон служебными символами (пробел, запятая, скобки и др.)
Строка – произвольная последовательность символов между левой и правой границами документа.
Абзац – произвольная последовательность символов, завершающаяся специальным символом конца абзаца. Допускаются пустые абзацы.
Фрагмент — это некоторое количество рядом стоящих символов, которые можно рассматривать как единое целое. Фрагментом может быть отдельное слово, строка, абзац, страница и даже весь вводимый текст.
Объяснение: