Компьютер наконец-то приобретёт элементы интеллектуальности.
Общение с ним максимально будет приближено к человеческому языку.
Виртуальность приобретёт реальные черты, предметы станут ощутимыми, окружение станет объёмным и будет полностью соответствовать человеческим органам чувств.
Но никогда искусственный интеллект не превзойдёт человека.
Любая биологическая клетка неизмеримо более сложна, чем самый заумный компьютер.
Метод обработки информации у будущих компьютеров, как и в природе, станет аналоговым, а не как сейчас, цифровым.
В природе цифровых процессов не существует, а только аналоговые.
<span>program</span> xjkhjh;
<span>uses</span> crt;<span>
Var</span> T<span>:</span><span>string</span>;
i<span>,</span> summ<span>:</span><span>byte</span>;
<span>Begin</span>
<span>Writeln</span><span>(</span><span>'Введи текст: '</span><span>)</span>;
<span>Readln</span><span>(</span>T<span>)</span>;
summ<span>:=</span><span>0</span>;
<span>For</span> i<span>:=</span><span>1</span><span>to</span> length<span>(</span>T<span>)</span><span>do</span>
<span>If</span> T<span>[</span>i<span>]</span><span>in</span><span>[</span><span>'y'</span><span>,</span><span>'x'</span><span>]</span><span>then</span> inc<span>(</span>summ<span>)</span>;
<span>Writeln</span><span>(</span><span>'Сумма = '</span><span>,</span>summ<span>)</span>;
<span>End</span>.
Прелесть языка PascalABC.NET в том, что мы читаем задачу и параллельно пишем строчку программы, выполняющую все необходимое.
Шутка, конечно, но в данном случае так оно и было.
<u>PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
Range(4,40,4).Select(x->Sqrt(2*x)).Sum.Println
end.
