Страницы 168-173 параграф 4 3 вопрос / задание 18, ГДЗ по информатике за 8 класс к учебнику Босовой просвещение

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

а)

program Z_18a_3;

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.

б)

program Z_18b_3;

var

  a,b,c: integer;

  f: boolean;

begin

  write('Введи длины сторон через пробел > ');

  readln(a,b,c);

  f := (a<>b)and (b<>c)and (a<>c);

  writeln(f);

end.