Лиза должна открыть синюю коробку
Объяснение:
Составим таблицу:
кр. ор. ж. з. с.
ка.
мя.
м.и.
па.
к.л.
Мы знаем, что куклы-lol в красной коробке, значит остальные предметы в ней быть не могут, а также куклы-lol не могут быть в других коробках:
кр. ор. ж. з. с.
ка. х
мя. х
м.и. х
па. х
к.л. v х х х х
Зеленая коробка не стоит между мячами и мягкими игрушками и, если она будет стоять между ними, то карандаши будут ровно в середине. Прикинем, что зеленая коробка теперь стоит между оранжевой и желтой, тогда получается, что зеленая коробка стоит посередине. Значит, карандаши лежат в зеленой, а мячи - в оранжевой (тк рядом с оранжевой есть только красная и зеленая коробка):
кр. ор. ж. з. с.
ка. х х х v х
мя. х v х
м.и. х х х
па. х х х
к.л. v х х х х
Таким образом, мы знаем, что мягкие игрушки находятся между карандашами и пазлами, тогда:
кр. ор. ж. з. с.
ка. х х х v х
мя. х v х х х
м.и. х х v х х
па. х х х х v
к.л. v х х х х
var
Ch, Mes, MaxCh: Integer;
begin
Write ('Введите число (1-31):');
ReadLn (Ch);
if (Ch < 1) or (Ch > 31) then begin
WriteLn ('Введено некорректное число');
Exit;
end;
Write ('Введите месяц (1-12): ');
ReadLn (Mes);
if (Mes < 1) or (Mes > 12) then begin
WriteLn ('Введен некорректный месяц');
Exit;
end;
case Mes of
1, 3, 5, 7, 8, 10, 12: MaxCh := 31;
4, 6, 9, 11: MaxCh := 30;
2: MaxCh := 28;
end;
if Ch <= MaxCh then
WriteLn ('Дата правильная')
else
WriteLn ('Дата неправильная!');
end.
// в программе не учитывается то, что в високосном году февраль имеет 29 дней
var x,y : real;
begin
readLn(x);
if(x <> 0) then
begin
y := 1/x;
writeLn("y=", y);
end
else
writeLn("функция не существует");
end.