Страницы 140-148 §3.3 номер 16, ГДЗ по информатике за 8 класс к учебнику Босовой

а)

program z16a;

var

  x, s: integer;

  otv:boolean;

begin

  write('введи число>');

  readln(x);

  s:=x mod 10+x div 100+ x mod 100 div 10;

  otv:=(s mod 2=0);

  writeln(otv);

end.

б)

program z16b;

var

  a,b,c: integer;

  otv:boolean;

begin

  write('введи длины сторон a, b, c>');

  readln(a,b,c);

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

  writeln(otv);

end.