У меня получилось так.
условия:
1. Спрайт [не в бутылке, не в банке]
2. Пепси [не в бутылке],
3. Кола [не в банке],
4. Миринда []
это то что явно написано в условии.
дальше: сказано про сосуд с колой, что он находится между кувшином и мириндой.
вывод именно из этого условия следующий:
- кола не в кувшине (потому что рядом)
- миринда не в кувшине (тоже потому что рядом)
допишем это в наш список:
1. Спрайт [не в бутылке, не в банке]
2. Пепси [не в бутылке],
3. Кола [не в банке, не в кувшине],
4. Миринда [не в кувшине]
дальше сказано про стакан что он около банки и Пепси
вывод конкретно из этого условия такой:
- Пепси не в стакане (потому что рядом)
- Пепси не в банке (потому что рядом)
допишем в список того что мы знаем:
1. Спрайт [не в бутылке, не в банке]
2. Пепси [не в бутылке, не в стакане, не в банке],
3. Кола [не в банке, не в кувшине],
4. Миринда [не в кувшине]
теперь мы знаем что Пепси точно находится в кувшине, потому что она не находится в трёх других сосудах.
допишем в список того что мы знаем:
1. Спрайт [не в бутылке, не в банке]
2. Пепси кувшин
3. Кола [не в банке, не в кувшине],
4. Миринда [не в кувшине]
а значит спрайт и остальные напитки не могут быть в кувшине. значит для спрайта остаётся только быть в стакане.
1. Спрайт стакан
2. Пепси кувшин
3. Кола [не в банке, не в кувшине],
4. Миринда [не в кувшине]
теперь кола не может быть в стакане, для неё остаётся только бутылка.
и для миринды остаётся последний сосуд - банка.
ответ: бутылка (Кола), стакан (Спрайт), кувшин (Пепси), банка (Миринда)или КСПМ
Var x,y,z:longint;
begin
writeln(' TEST');
writeln(' выберите верный вариант ответа 1,2 или 3');
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
if (y=3)then write('ваша оценка 5');
if (y=2)then write('ваша оценка 3');
if (y=1)then write('ваша оценка 2');
end.
P.S.прошу проверить на ошибки а тест думаю вы и сами составите надеюсь всё правильно т.к. давно не работал на паскале
Пример таблицы (с 5 товарами) - в прилагаемом файле.
