Question

Срочно надо решить 2 простые задачи на pascal.

Answer 1

Ответ:

PascalABC.NET 3.6.2

#1 //Здесь под словом понимается последовательность непробельных символов, ограниченных пробелами или концом строки. Пунктуация программой игнорируется и удаляется из входного текста для дальнейшей работы.

begin

 var Exp := ReadString();

 Exp := Exp.RegexReplace('`[!"#%&()*,-./:;?@_{}¡\\\[\]«·»¿;·$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 минут работы. Я тоже больше по питону)