Солипиадой по информатике 8 класс

//Настлаждайтесь=))

Решение:

Кто учавствовал:
  Мужчина в четвёртом ряду (На данном этапе нельзя сказать, что это Серж)
  Стелла
  Герман
  Марго
  Пётр

Какие были предметы:
  Пудреница
  Фигура Фемиды
  Пепельница
  Предмет посуды из серебра
  Подстаканник
  Предмет из меди
  Предмет из хрусталя
  Медный соусник (Пока нельзя сказать, что "Предмет из меди" = "Медный соусник")
  Изделие из бронзы

Какие были материалы:
  Фарфор
  Серебро
  Медь
  Хрусталь
  Бронза
    => Так как каждый участник купил по одному предмету, и количество предметов и материалов совпадают, делаем вывод, что каждый предмет сделан из разных материалов
    => Предмет из меди - это медный соусник

Вот теперь разбираемся с ценами:
  1. Фигура Фемиды может стоить только 7, 7.5 или 9.5
  2. Пепельница и предмет посуды из серебра могут стоить только 7.5, 9.5 или 10
  3. Подстаканник Стеллы и покупка Германа могут стоить только 7 и 7.5, 9.5 и 10, или 10 и 10.5
  4. Медный соусник и предмет из хрусталя могут стоить только 7 и 10, или 7.5 и 9.5
  5. "Марго, Пётр и Стелла оставили на аукционе 24,5 руб" => их покупки могут стоить только 7, 7.5 и 10 (это единственная возможная тройка)
    => Герман не мог потратить 7, 7.5 и 10, т.к. не учавствовал в 5., а Стелла наоборот, могла потратить только 7, 7.5 и 10
    => Вариант "7 и 7.5" из 3. исключается
    => Подстаканник стоит 10, покупка Германа 9.5, т.к. подстаканник дороже, а 10.5 Стелла потратить не могла
   
    => Так как в 5. купили медный соусник, то он может стоить только 7 или 7.5
   
Цены после выше изложенного:
  1. Фигура Фемиды может стоить только 7 или 7.5
  2. Пепельница и предмет посуды из серебра могут стоить только 7.5, 9.5 или 10
  3. Подстаканник Стеллы стоит 10, покупка Германа стоит 9.5
  4. Медный соусник и предмет из хрусталя могут стоить только 7 и 10, или 7.5 и 9.5
  5. Марго и Пётр потратили 7 и 7.5, среди их покупок было изделие из бронзы и медный соусник
    => Марго и Пётр купили фигуру Фемиды и медный соусник за 7 и 7.5 (т.к. в этот ценовой диапазон попадает только фигура и соусник)
    => Пётр купил фигуру Фемиды, т.к она ушла мужчине в 4-м ряду
    => Марго купила медный соусник
    => Фигура Фемиды бронзовая
    => Серж потратил 10.5, т.к. остальные траты распределены между участниками
    => Пепельница и предмет посуды из серебра не могут стоить 7.5, значит их могли купить только Герман и Стелла
    => Стелла купила серебряный подстаканник за 10, а Герман пепельницу за 9.5
    => Марго купила медный соусник за 7.5, а Герман хрустальную пепельницу за 9.5
    => Фарфоровую пудреницу купил Серж за 10.5, а Пётр бронзовую фигуру Фемиды за 7

Код программы приведен ниже и во вложениях.

var  
n: integer;  // степень числа 
res: integer; // результат 
idx: integer; // индекс для цикла
begin
  write('Введите степень числа: ');
  readln(n);
  res := 1;
  if n < 0 then
  begin
    writeln('Степень должна быть неотрицательной.');
    halt(-1); // завершение программы
  end
  else if n >= 30 then
  begin    writeln('Переполнение типа Integer.');
    halt(-2);
  end
  else if n > 0 then
  begin
    for idx := 1 to n do
      res := res * 2;
  end;
  writeln('Результат возведения 2 в степень ', n, ': ', res, '.');
end.