begin
var fn := ReadlnString('Введите имя файла:');
if not FileExists(fn) then
Print('Файл не найден');
exit
end;
var a := ReadAllText(fn).ToWords; // массив слов
Println('Количество слов в файле:', a.Length);
var lmax := a.Select(w -> w.Length).Max;
Println('Перечень слов с максимальной длиной');
a.Where(w -> w.Length = lmax).Println
end.
begin
var fn := ReadlnString('Введите имя файла:');
if not FileExists(fn) then
begin
Print('Файл не найден');
exit
end;
var a := ReadAllText(fn).ToWords; // массив слов
Println('Количество слов в файле:', a.Length);
var lmax := a.Select(w -> w.Length).Max;
Println('Перечень слов с максимальной длиной');
a.Where(w -> w.Length = lmax).Println
end.
Во втором вложении дается тестовый файл Pushkin2.txt#include <iostream>
#include <cmath>
using std::cout;
using std::cin;
using std::endl;
int fun(int val1, int val2)
{
cout << "max = " << val1 << endl;
cout << "min = " << val2 << endl;
cout << val1 << "^3 = " << val1 * val1 * val1 << endl;
cout << "√" << val2 << " = "<< sqrt(val2) << endl;
}
int main()
{
int val1,val2;
cin >> val1 >> val2;
if(val1 > val2)
{
fun(val1, val2);
}else{
fun(val2, val1);
}
return 0;
}