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

а) сумма цифр трёхзначного числа х является чётным числом;
б) треугольник со сторонами а, b, с является разносторонним.
var
x, s: integer;
f: boolean;
begin
write(‘Введи трехзначное число > > ‘);
readln(x);
s := (x div 100) + (x mod 100) + (x mod 100 div 10);
f := (s mod 2 = 0);
writeln(f)
end.
Окно вывода
Введи трехзначное число > > 135
False
Введи трехзначное число > > 435
True

а) Нужно проверить, является ли сумма цифр трёхзначного числа чётной. Для этого выделим цифры числа и найдём их сумму:

$$s = \frac{x}{100} + \left(x \bmod 100\right) + \left(\frac{x \bmod 100}{10}\right)$$

Затем проверим условие чётности:

$$s \bmod 2 = 0$$

Если условие выполняется, программа выводит true, иначе — false.

var
  x, s: integer;
  f: boolean;
begin
  write(‘Введи трехзначное число >> ‘);
  readln(x);
  s := (x div 100) + (x mod 100) + (x mod 100 div 10);
  f := (s mod 2 = 0);
  writeln(f)
end.

Проверка: для числа 135 сумма цифр равна $$1+3+5=9$$, число нечётное, значит выводится false. Для числа 435 сумма цифр равна $$4+3+5=12$$, число чётное, значит выводится true.

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

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

Тогда программа может быть такой:

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

Ответ

а)

var
  x, s: integer;
  f: boolean;
begin
  write(‘Введи трехзначное число >> ‘);
  readln(x);
  s := (x div 100) + (x mod 100) + (x mod 100 div 10);
  f := (s mod 2 = 0);
  writeln(f)
end.

б)

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