Мәтінді теруге арналған бағдарламалар​

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

 

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

VAR
  n1, n2, n3: INTEGER;

BEGIN
  WRITE('Введите 3 числа: ');
  READ(n1, n2, n3);

  IF n1 < 0
  THEN n1 := n1 * n1 * n1 * n1
  ELSE n1 := n1 * n1;

  IF n2 < 0
  THEN n2 := n2 * n2 * n2 * n2
  ELSE n2 := n2 * n2;

  IF n3 < 0
  THEN n3 := n3 * n3 * n3 * n3
  ELSE n3 := n3 * n3;

  WRITELN(n1);
  WRITELN(n2);
  WRITELN(n3);
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
  num: INTEGER;

BEGIN
  WRITE('Введите месяц (1 - 12): ');
  READ(num);
  CASE num
  OF
    1: WRITELN('Январь');
    2: WRITELN('Февраль');
    3: WRITELN('Март');
    4: WRITELN('Апрель');
    5: WRITELN('Май');
    6: WRITELN('Июнь');
    7: WRITELN('Июль');
    8: WRITELN('Август');
    9: WRITELN('Сентябрь');
    10: WRITELN('Октябрь');
    11: WRITELN('Ноябрь');
    12: WRITELN('Декабрь');
  END;
END.