// PascalABC.NET
// Версия 3.3.5 сборка 1662 (29.04.2018)
А
begin
Println('Кол-во символов -',ReadString('Слово->').Length)
end.
Пример:
741258963
Кол-во символов - 9
Б
begin
var s:=ReadString('Слово-> ').ToLower;
Println(s[1]=s[s.Length]?'Совпадают':'Не совпадают');
end.
Пример:
Слово-> Олово
Совпадают
В
begin
var s:=ReadString('Слово-> ');
Println(s[1],s[2],s[s.Length]);
end.
Пример:
Слово-> Плотина
П л а
Г
begin
Println(ReadString('Слово->').Length mod 2=0?'Четно':'Нечетно');
end.
Пример:
Слово-> Виноград
Четно
Импликация — бинарная логическая связка, по своему применению приближенная к союзам «если… то…».
Импликация записывается как посылка следствие; применяются также стрелки другой формы и направленные в другую сторону (остриё всегда указывает на следствие).
Суждение, выражаемое импликацией, выражается также следующими
Посылка является условием, достаточным для выполнения следствия; Следствие является условием, необходимым для истинности посылки. x={"Студент сдаст хорошо сессию"} y={"Папа купит ему машину"}. Однако, это не совсем удачная иллюстрация, потому что как-то не очень близка к действительности. Напомню, что x->y == 0 только в том случае, если студент действительно хорошо сдал сессию, а папа машину ему не купил (наоборот, если студент сдал плохо, а папа купил ему машину, то папу лжецом уж точно не назовёшь).
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(18,10,5000); a.Println;
a.Where(t->t.Between(100,999)).Println
end.