Предмет: Информатика,
автор: foossbchkapwpwotjdji
Написать программу в паскале, определяющую самую длинную строку в текстовом документе, заменить все символы этой строки на звёздочки
Ответы
Автор ответа:
0
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadAllLines('foos.txt');
var i:=a.Select(l->l.Length).ToArray.IndexMax;
a[i]:='*'*a[i].Length;
WriteAllLines('foos1.txt',a);
ReadAllText('foos1.txt').Println
end.
Входной файл foos.txt должен находиться в одной папке с программой. Результат помещается в файл foos1.txt с тем ,чтобы не менять входной файл - это позволяет запустить задачу несколько раз. Если результат нужно поместить в тот же файл, замените foos1.txt на foos.txt.
Пример
Написать программу в паскале, определяющую самую
**************************************************
символы этой строки на звёздочки.
Входной файл дан во вложении.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadAllLines('foos.txt');
var i:=a.Select(l->l.Length).ToArray.IndexMax;
a[i]:='*'*a[i].Length;
WriteAllLines('foos1.txt',a);
ReadAllText('foos1.txt').Println
end.
Входной файл foos.txt должен находиться в одной папке с программой. Результат помещается в файл foos1.txt с тем ,чтобы не менять входной файл - это позволяет запустить задачу несколько раз. Если результат нужно поместить в тот же файл, замените foos1.txt на foos.txt.
Пример
Написать программу в паскале, определяющую самую
**************************************************
символы этой строки на звёздочки.
Входной файл дан во вложении.
Приложения:
Похожие вопросы
Предмет: Английский язык,
автор: Аноним
Предмет: Русский язык,
автор: prozzalla
Предмет: Алгебра,
автор: Stanishevskaa
Предмет: Математика,
автор: тёма20032016
Предмет: Биология,
автор: Otokunova