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

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

Для проверки чётности суммы цифр трёхзначного числа выделим его цифры и найдём их сумму. Затем проверим, делится ли она на 2 без остатка.

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

Для пункта б программа должна выводить true, если треугольник со сторонами $$a, b, c$$ является разносторонним, то есть все его стороны попарно различны:

var
a, b, c: integer;
f: boolean;
begin
  write(‘Введите стороны треугольника >> ‘);
  readln(a, b, c);
  f := (a <> b) and (a <> c) and (b <> c);
  writeln(f)
end.