Var
X:real;
Begin
Write('x = ');
ReadLn(x);
Write('y = ',sqr(Sin(x))+1)
End.
Для начала определим истинность каждого отдельно подвыражения
А - 1
В - 0
С - 0
Теперь подставим все это дело в
а) (1+ 0) * 0 -> ( не важно ) всегда будет = 1 (только переход из 1 в 0 = 0)
То есть выражение под (а) истинно = 1
б) (1 * 0) + 0 == (1 + 0 ) * (1 * 0) получаем 0 == 0 это истинна
Ответ: а,б - истинны
P.S - операцию & можно представить как * в математике
операцию | (или) можно представить как + в математике
//Язык. Паскаля. Язык Паскаля, Карл!
//Pascal ABC.NET v3.1 сборка 1172
Var
a,b,c:integer;
d:boolean;
begin
d:=false;
readln(a);
readln(b);
repeat
c:=a mod 10;
a:=a div 10;
if c=b then d:=true;
until (c=b) or (a=0);
if d=true then writeln('Есть') else writeln('Нет');
end.
<span>Пример ввода:
34457
8
Пример вывода:
Нет
</span>