. Работа с файлами С текстового редактора создать файл 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.

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

Anjelika222

12.11.2022 10:25

Составьте таблицу «Негативные эффекты использования компьютеров» 1 столбец - фактор2 столбец – устройства оказывающее негативное влияние3 столбец уменьшения негативного влиянияФакторУстройства...

125VikA125

07.11.2020 13:41

Какое наименьшее число гирь необходимо для того, чтобы иметь возможность взвесить любое число граммов от 1 до 50 на чашечных весах, если гири можно класть только на одну чашу...

Anny505

15.02.2023 05:40

С каких условий определяют главную диагональ и побочную диагональ двумерных массивов?...

Diagramma1

23.05.2020 07:27

Какая функция отвечает за ввод данных?Какая функция отвечает за вывод данных?...

stozhok1998

20.08.2020 01:21

Задание на Phyton Задание 1 Пользователь вводит с клавиатуры два числа. Нужно посчитать сумму чисел в указанном диапазоне, а также среднеарифметическое. Задание 2 Пользователь...

asya1607

23.10.2022 13:19

Как перевести 142 из 5-ой системы счисления в 10-ю? вроде делить на 5 и брать остатки, но я делю 142 на 5 и получаю 28 целое, 2 в остатке. далее 28 на 5 = 5, 3 в остатке....

Damir2342

23.10.2022 13:19

Что будет если я вставлю в системный болок диск на котором поцарапан рисунок а с другой стороны на том диске царапины.и там еще он с мелкими ямками (ну виглядит будто и еще...

karinasurshkose

05.05.2020 11:53

Сформировать массив из 10 элементов случайным образом взятых из множества {-2, 0, 2, 4, 6}. найти максимальный и минимальный элементы массива, вывести элементы и их порядковые...

Lika8911

05.05.2020 11:53

Найти сумму всех трехзначных чисел у которых вторая цифра равна 5...

VanessaQueen

05.05.2020 11:53

Дано двузначное число. определить, какая из цифр меньше, первая или вторая и на сколько. блоксхему и решение....

Ответ:

Luna28u

07.12.2021 22:11

const nx = 20;
var x: array[1..nx, 1..nx] of integer;z:array[1..nx*2] of integer;
i, j, k,n,r,t: integer;
begin
Writeln('Введите размер матрицы n');Read(n);
for i := 1 to n do begin
for j := 1 to n do begin
Read(k);x[i, j] := k; end;end;
Writeln('Исходный массив');
for i := 1 to n do begin
for j := 1 to n do begin
Write(x[i, j]:4);
if x[i, j]>0 then begin t:=t+1; z[t]:=x[i, j];end;
end;
Writeln; end;
Writeln;Writeln('Одномерный массив');
for j := 1 to t do
Write(z[j]:4);
end.

0,0(0 оценок)

Ответ:

Danilalmaz

22.09.2021 14:05

// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
var s:=ReadLnString('Вводите:');
s.ToWords.Where(x->x=ReverseString(x)).PrintLn;
end.

Тестовое решение:
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган и с в шалаш

Вариант, если исключить однобуквенные:

// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
var s:=ReadLnString('Вводите:');
s.ToWords.Where(x->x=ReverseString(x)).
Where(x->x.Length>1).PrintLn;
end.

Тестовое решение:
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган шалаш

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку