ГДЗ по информатике 8 класс Босова, номер §4.3 № 18

§. №

Логические условия в программе

Составьте программу, выводящую true, если высказывание является истинным, и false — в противном случае:
а) сумма цифр трёхзначного числа x является чётным числом;
б) треугольник со сторонами a, b, c является разносторонним.

Решение

а) Для трёхзначного x сотни равны x div ; десятки равны (x div ) mod ; единицы равны x mod . Сумма чётна, когда остаток от деления её на равен нулю. Логическое выражение можно сразу присвоить переменной rez.

var
  x, sum: integer;
  rez: boolean;
begin
  readln(x);
  sum := x div  + (x div ) mod  + x mod ;
  rez := sum mod  = ;
  writeln(rez)
end.

При x = имеем + + = и mod = , поэтому выводится false. При x = сумма равна + + = , mod = , поэтому выводится true.

б) Разносторонний треугольник имеет три попарно разные стороны. Кроме того, заданные длины должны образовывать треугольник: каждая сторона меньше суммы двух других. Для этого вводим положительные длины и соединяем все условия операцией and.

var
  a, b, c: real;
  rez: boolean;
begin
  readln(a, b, c);
  rez := (a > ) and (b > ) and (c > ) and
         (a + b > c) and (a + c > b) and (b + c > a) and
         (a <> b) and (a <> c) and (b <> c);
  writeln(rez)
end.

Например, , , удовлетворяют неравенствам треугольника и попарно различны, поэтому получается true. Для , , равенство a = b делает последнее условие ложным, и программа выводит false.

Ответ

а) true, если сумма цифр x делится на ; б) true, если положительные a, b, c образуют треугольник и попарно различны.

Помогло?

Номер §4.3 № 18