1.найти максимальный элемент из 10 чисел введенных с клавиатуры , (цикл с пост-условием)
2. найти номер первого минимального элемента в последовательности чисел введенных с клавиатуры, ноль признак конца ввода (цикл с пред-условием)
3.найти сумму 10 положительных чисел введенных с клавиатуры (цикл с параметром)
4. найти факториал введенного числа (цикл с пост-условием)
5.найти и вывести все числа квадраты которых не привышают введенного пользователем числа(цикл с параметром)
блок ! нужно ≈56
Решение:
Кто учавствовал:
Мужчина в четвёртом ряду (На данном этапе нельзя сказать, что это Серж)
Стелла
Герман
Марго
Пётр
Какие были предметы:
Пудреница
Фигура Фемиды
Пепельница
Предмет посуды из серебра
Подстаканник
Предмет из меди
Предмет из хрусталя
Медный соусник (Пока нельзя сказать, что "Предмет из меди" = "Медный соусник")
Изделие из бронзы
Какие были материалы:
Фарфор
Серебро
Медь
Хрусталь
Бронза
=> Так как каждый участник купил по одному предмету, и количество предметов и материалов совпадают, делаем вывод, что каждый предмет сделан из разных материалов
=> Предмет из меди - это медный соусник
Вот теперь разбираемся с ценами:
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.