#1 //Здесь под словом понимается последовательность непробельных символов, ограниченных пробелами или концом строки. Пунктуация программой игнорируется и удаляется из входного текста для дальнейшей работы.
Все сильнее и сильнее высокие технологии входят в нашу жизнь. Компьютеризированные телескопы, множество гаджетов- это не воспаленная фантазия писателей, а наше время. Одной из таких "фантастических чуд"- роботы. Роботы все чаще и чаще заменяют человека на множествах работ, где "железному другу" проще, чем человеку. Посредством алгоритмов роботы решают самые запутанные задачи. К примеру, роботизированный станок используется на множествах фабрик, от производства конфет и до заводов по сборке автомобилей. Почти каждая деталь сделана специальным станком, подчиняющийся алгоритмам и командам, созданных человеком!
Все сильнее и сильнее высокие технологии входят в нашу жизнь. Компьютеризированные телескопы, множество гаджетов- это не воспаленная фантазия писателей, а наше время. Одной из таких "фантастических чуд"- роботы. Роботы все чаще и чаще заменяют человека на множествах работ, где "железному другу" проще, чем человеку. Посредством алгоритмов роботы решают самые запутанные задачи. К примеру, роботизированный станок используется на множествах фабрик, от производства конфет и до заводов по сборке автомобилей. Почти каждая деталь сделана специальным станком, подчиняющийся алгоритмам и командам, созданных человеком.
PascalABC.NET 3.6.2
#1 //Здесь под словом понимается последовательность непробельных символов, ограниченных пробелами или концом строки. Пунктуация программой игнорируется и удаляется из входного текста для дальнейшей работы.
begin
var Exp := ReadString();
Exp := Exp.RegexReplace('`[!"#%&()*,-./:;[email protected]_{}¡\\\[\]«·»¿;·$1234567890]', '').RegexReplace('\s+', ' '); //Рега пропускает " ' ".
Exp.Split(' ').Where(p -> p.First = p.Last).Count.Println;
end.
#2
begin
var A := ArrRandom(ReadInteger(), -99, 99);
a.Println;
var zero_ind := A.IndexOf(0);
if zero_ind <> -1 then Print($'Fisrt "0" number is {zero_ind+1}') else Print('No "0" Finded in Current Array');
end.
Объяснение:
15 минут работы. Я тоже больше по питону)