#1 //Здесь под словом понимается последовательность непробельных символов, ограниченных пробелами или концом строки. Пунктуация программой игнорируется и удаляется из входного текста для дальнейшей работы.
Полное ветвление: if логическое выражение then оператор else оператор;
Неполное ветвление: if логическое выражение then оператор;
Если ветвления вложенные и среди них есть неполные, надо помнить, что каждое else связывается с ближайшим предшествующим ему if, не имеющем else. Например, рассмотрим конструкцию if a>b then if c=d then x:=1 else x:=2; Без упомянутого правила неясно, что имелось в виду: if a>b then if c=d then x:=1 else x:=2; или же if a>b then if c=d then x:=1 else x:=2; Знание правила позволяет разрешить вопрос: имеется в виду первый вариант. А если нужно получить второй - к нашим услугам блок: if a>b then begin if c=d then x:=1 end else x:=2;
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 минут работы. Я тоже больше по питону)