Страница 153 §3.4 номер 6, ГДЗ по информатике за 8 класс к учебнику Босовой

Программа, определяет: есть ли среди цифр данного числа одинаковые; является ли данное число перевёртышем

а)

program z6a;

var

  x, a, b, c: integer;

begin

  write('введи х - трехзначное число>');

  readln(x);

  a := x mod 10;

  b := x div 100;

  c := x mod 100 div 10;

  if (a = b) or (a = c) or (b = c) then write('Да') else write('Нет');

end.

б)

program z6b;

var

  x, a, b: integer;

begin

  write('введи х - трехзначное число>');

  readln(x);

  a := x mod 10;

  b := x div 100;

  if (a = b) then write('Перевертыш') else write('Нет');

end.