Які відкриття були зроблені в 20 ст. в галузі інформатики. / какие открытия были сделаны в 20 веке в галузе информатики. до 11: 00 часов.​

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018Внимание! Если программа не работает, обновите версию!

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

//c++

#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;
}