Задание 16 Параграф 3.3 ГДЗ Босова 8 класс (Информатика)

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

а) Для трёхзначного числа $$x$$ сумма его цифр равна

$$x \bmod 10 + x \div 100 + (x \bmod 100) \div 10.$$

Нужно проверить, является ли эта сумма чётной:

program Chc;
var
  x: integer;
  q: boolean;
begin
  readln(x);
  q := (((x mod 10) + (x div 100) + (x mod 100 div 10)) mod 2 = 0);
  writeln(q);
end.

б) Треугольник является разносторонним, если все его стороны попарно различны:

$$a \ne b \land b \ne c \land a \ne c.$$

program Chc;
var
  a, b, c: integer;
  q: boolean;
begin
  readln(a, b, c);
  q := (a <> b) and (b <> c) and (a <> c);
  writeln(q);
end.

Ответ

а) $$q := (((x \bmod 10) + (x \div 100) + (x \bmod 100 \div 10)) \bmod 2 = 0);$$

б) $$q := (a \ne b) \land (b \ne c) \land (a \ne c);$$