Страница 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.