Программа на паскале
в текстовом файле записано 10 имен, по одному с новой строки . Вывести в другой тестовый файл самое длинное имя .
Ответы на вопрос
Ответил Аноним
0
// PascalABC.NET 3.2, сборка 1449 от 23.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadAllLines('input.txt');
var i:=a.Select(s->s.Length).ToArray.IndexMax;
WriteLines('output.txt',Seq(a[i]))
end.
Программе совершенно неважно, сколько и каких строк записано во входном файле input.txt
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadAllLines('input.txt');
var i:=a.Select(s->s.Length).ToArray.IndexMax;
WriteLines('output.txt',Seq(a[i]))
end.
Программе совершенно неважно, сколько и каких строк записано во входном файле input.txt
Ответил Аноним
0
Единственное условие - входной файл не должен быть пустым.
Новые вопросы