Скласти розгалуження інформатика​

Анна Брусникина
Тамара Черникина
Галина Морошкина
Ирина Клубникина    и
Полина  Малинина
 
с начала про Ирину: с условия мы понимаем что она не является ни малининой, ни черникиной, ни морошкиной(так как все предположения подруг оказались неверными, а первое место заняла морошкина, вывод морошкина - не Ирина)
Анна - ну тут все ясно, вычеркиваем из ее столбца малинину, клубникину, черникину, морошкину, а Анна у нас Брусникина (значит никто из девочек больше не может быть клубникиной, и тут выясняем что Ирина у нас клубничку любит, опять же никто из девочек не может быть больше клубникиной.)
Полина у нас не может быть Морошкиной, это мы ясно видим, но возвратимся к неверным предположениям, 4 место в этих предположениях занимает... Черникина. Вычитаем эти 2 фамилие из общей массы. Полина получается у нас малининой.
С тех же самых ошибочных предположений находим что Тамара черникина, а Галина Морошкина
надеюсь

 

{ ответ дан на языке Pascal }
//1-ая задача
PROGRAM Solution(INPUT, OUTPUT);

VAR
  num: INTEGER;
  n1, n2, n3: INTEGER;

BEGIN
  WRITE('Введите 3-значное число: ');
  READ(num);

  n1 := (num DIV 100);
  n2 := (num MOD 100 MOD 10);
  n3 := (num MOD 100 DIV 10);
  IF(n1 + n2 + n3) MOD 2 = 0
  THEN WRITELN('Чётное')
  ELSE WRITELN('Нечётное');
END.

//2-ая задача
PROGRAM Solution(INPUT, OUTPUT);

VAR
  num: INTEGER;
  n1, n2, n3: INTEGER;

BEGIN
  WRITE('Введите 3-значное число: ');
  READ(num);

  n1 := (num DIV 100);
  n2 := (num MOD 100 MOD 10);
  n3 := (num MOD 100 DIV 10);
  IF(num * num) = (n1 * n1 * n1) + (n2 * n2 * n2) + (n3 * n3 * n3)
  THEN WRITELN('Равен')
  ELSE WRITELN('Не равен');
END.

//3-я задача
PROGRAM Solution(INPUT, OUTPUT);

VAR
  a, b, c: INTEGER;

BEGIN
  WRITE('Введите a, b, c: ');
  READ(a, b, c);

  IF(a = b) OR (b = c) OR (c = a)
  THEN WRITELN('Равнобедренный')
  ELSE WRITELN('Не равнобедренный');
END.