<em>// PascalABC.NET 3.2, сборка 1436 от 01.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadlnString('Вводите:').ToWords.Select(w->w.ToLower)
.Where(w->w=w.Inverse).Println
end.
<u>Пример</u>
Вводите: Шла Алла по дороге видит дед несет наган
алла дед наган
пришли фото ,может помогу
1)получить данный
2)распределить данный на числа и арифметические действия
3)собрать конструкцию
4)посчитать
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
Writeln((ReadInteger.ToString.Where(t->t='9')).Count=1)
end.
<u>Примеры</u>
35423
False
13290192
False
132903
True
Изи, к примеру условие найти найболлшее из 4 цифр, а>б (если да то выведем что не выполнили задачу, так как до 3-его условия не добрались), нет, дальше б>с (если да то выведем что не выполнили задачу, так как до 3-его условия не добрались) нет, с>д если да то то самое большое это с, выводим переменную с на экран(write(c);), если нет то end.