Дано: ДАВС, СА — СВ. Основание треугольника на 250 мм меньше боковой стороны.
Периметр треугольника ABC равен 2750 мм. Вычисли стороны треугольника.
АВ
ММ;
СВ
MM;
СА =
ММ.
ответить!

Оператор mod возвращает остаток от деления. Четное число – такое, остаток от деления которого на 2 равен нулю.

Функция int возвращает целую часть дробного числа. С её можно реализовать mod ( – примерно то же самое, что и ) или сравнить результат умножения на 2 целой части результата деления исходного числа на 2 с исходным числом.

Код:

begin

   var a := ReadInteger();

   writeln(a mod 2 = 0);

   writeln(a - 2 * int(a / 2) = 0);

   writeln(a = 2 * int(a / 2));

end.

Пример ввода:

5

Пример вывода:

False

False

False

Пример ввода:

42

Пример вывода:

True

True

True

1 sm('Игорь',18,189).

2 sm('Роман',17,182).

3 sm('Антон',20,191).

4 sm('Виктор',21,185).

5 sm('Николай',16,193).

6 % а) выбрать всех спортсменов выше 184 (включительно), но не выше 190;

7 % ?- findall( Name, (sm(Name, Age, Height), Height >= 184, Height < 190), Xs ).

8 % б) выбрать спортсменов моложе 20 лет, но не моложе 18 (включительно);

9 % ?- findall( Name, (sm(Name, Age, Height), Age < 20, Age >= 18), Xs ).

10 % в) выбрать всех спортсменов с ростом не ниже 186 и не старше 19 лет (включительно).

11 % ?- findall( Name, (sm(Name, Age, Height), Height > 186, Age =< 19), Xs ).