Var A:integer;
Begin
WriteLn('Введи двузначное число');
Read(A);
if (A mod 10 + A div 10) mod 2 = 0 then Write('Сумма цифр чётная')
else Write('Сумма цифр НЕчётная')
End.
1 5 2 3
Номера сетей или узлов (проще говоря, цифры, которые отделяет точка) должны быть не больше 256, следовательно и не могут быть 4х значными. Подбираем числа так, чтобы все сходилось
14. ((X < 5) ∨ (x < 3)) ∧ ((X < 2) ∨ (x < 1))
(X < 5) ИЛИ (x < 3) заменяется на (X < 5)
Аналогично, (X < 2) ИЛИ (x < 1) заменяется на (X < 2)
Получаем (X < 5) И (X < 2), что заменяется на (X < 2)
Условию (X < 2) удовлетворяет a) 1
15. НЕ (Первая буква согласная) И НЕ (Вторая буква гласная)
Преобразуем в понятное нам высказывание: "Первая буква не согласная и вторая буква не гласная." Т. к. в латинском алфавите все буквы относятся либо к гласным, либо к согласным, то заменяем это высказывание на: "Первая буква гласная и вторая буква согласная"
Этому условию удовлетворяет строка под буквой a) abcde
Ответ:
Дан в приложении.
Объяснение:
Я опирался на теорему Пифагора: в прямоугольном треугольнике квадрат гипотенузы равен сумме квадратов двух катетов.
А для нахождения площади была использована формула Герона:
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var a:=ReadSeqIntegerWhile(x->x>0).ToArray;
write('Периметр ', a.Count,'-угольник равен ',a.Sum);
end.