Логическая задача. Нюша, Бараш и Копатыч нарисовали геометрические фигуры разных цветов: круг, квадрат и прямоугольник. Нюша любит рисовать розовым карандашом, Бараш – черным, а Копатыч – коричневым. Известно, что черным карандашом не рисовали квадрат и прямоугольник. Розовым цветом не рисовали квадрат. Какую геометрическую фигуру нарисовал каждый из них? (Заполните таблицу, используя условные обозначения: + истина, - ложь

ответ:                    БАРАШ   НЮША    КОПАТЫЧ

КРУГ                          1              0                    0

КВАДРАТ                  0             0                    1

ПРЯМОУГОЛЬНИК  0            1                    0

Объяснение:

Наверное так.

Объяснение:

Нюша розовый прямоугольник

Бараш черный круг

Копатыч коричневый квадрат

усложнённый вариант(всё работает исправно,при вводе больше или меньше 3 чисел выводится сообщение "это не трёхзначное число! "):

vari,a,d: integer; s: string; beginwriteln('введите трёхзначное число '); read(s); d: =length(s); if d< > 3 thenwrite('это не трёхзначное число! '); if d=3 thenif (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) thenwrite('да')elsewrite('нет'); end.

простой вариант(выводится ошибка если цифр больше или меньше трёх! ):

vari,a,d: integer; s: string; beginwriteln('введите трёхзначное число '); read(s); if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) thenwrite('да')elsewrite('нет'); end. 2 варианта, так-как незнаю,проходили ли вы функцию  "length" или нет.если нет,то препад заподозрит что вы списали откуда нибудь или вам кто-то подсказал.