// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var names:array[1..2,1..5] of string:=
(('Саша','Женя','Таня','Лена','Вася'),
('Александр','Евгений','Татьяна','Елена','Василий'));
var name:=ReadlnString('Введите краткое имя:');
var p:=0;
for var i:=1 to 5 do
if name=names[1,i] then begin p:=i; break end;
if p>0 then Writeln(names[2,p])
else Writeln('Я вас не знаю!')
end.
<u><em>Тестовое решение</em></u>
Введите краткое имя: Лена
Елена
125 из десятичной получается 1111101 <span>в двоичной
</span>125 из десятичной получается 175 в восьмеричной
125 из десятичной получается <span>7D </span><span>в шестнадцатеричной </span>
Код доделанный (исправленна куча русских букв) и немного переделанный под VBScript, потому что <span>BASIC </span>у меня нет
<span>Sub Zadanie()
D = 0
M = 1
FOR A = -1 to 0
FOR B = -1 to 0
FOR C = -1 to 0
D = D - ((A AND C) EQV NOT (B IMP (A OR C))) * M
M = M * 2
NEXT
NEXT
NEXT
Msgbox "D="& D
End Sub
Вывод
D=218
</span>
Здесь в условии задачи явная опечатка, т.к. в приведенном случае натуральных решений нет. Если немного изменить условие, например, так:
320(x+1)-310(x+2)+69=0, (x+1 и x+2 - основание системы счисления), то решать можно так:
3*(x+1)²+2*(x+1)-3*(x+2)²-1*(x+2)+69=0
3*(x²+2x+1)+2*(x+1)-3*(x²+4x+4)-(x+2)+69=0
3x²+6x+3+2x+2-3x²-12x-12-x-2+69=0
-5x-9+69=0
x=12
Можно сделать проверку:
3*13²+2*13-3*14²-14+69=0
3*169+26-3*196-14+69=0
507+26-588-14+69=0
602-602=0
1) МОЛОКО: не в бутылке (по условию задачи); не в стакане, т.к. "<span>стакан </span><span>стоит </span>между <span>банкой и сосудом с </span>молоком"; не в банке, потому что: "между банкой и<span> сосудом с </span>молоком<span>"; отсюда следует, что </span>МОЛОКО В КУВШИНЕ.
<span>2) ВОДА: не в кувшине (там молоко), не в бутылке (по условию задачи), не в банке (по условию задачи); получается, что ВОДА В СТАКАНЕ.
3) ЛИМОНАД: не кувшине (там молоко); не в стакане (там вода); не в кувшине, т.к. "сосуд с лимонадом стоит между кувшином и.."; получается, что ЛИМОНАД В БУТЫЛКЕ.
4) КВАС В БАНКЕ.
Ответ: в бутылке лимонад, в стакане вода, в кувшине молоко, в банке квас.</span>