Ответ:
Надо было нажать ети англ. символь на руской раскладке
Объяснение:
Сегодня на ужин у нас лосось
Таблица истинности и две схемы - для заданной и упрощенной формулы
не ( не У и не Х ) и Z = ! ( !Y & !X) & Z = (Y + X) & Z
Uses Crt;
Const
N = 15;
Var
B:array[1..N] of integer;
i:integer;
S:real;
Begin
ClrScr;
Randomize;
S:=0;
Write('B(',N,'):');
For i:= 1 to N do
Begin
B[i]:=random(71)+130;
Write(' ',B[i]);
S:=S+B[i]
End;
WriteLn;
WriteLn('Sr = ',S/N:0:2);
ReadLn
End.
Как понял я, то тебе нужно что то такое
var f:array[1..10000]of longint;
x:longint;
begin
writeln('Введите x');
readln(x);
if (x>=2) or (x<=-2) then
f[x]:=x
else f[x]:=4;
writeln('f[x] = ',f[x]);
end.
Могу только это решение дать
var x,y:real;
begin
read(x,y);
if (x*x+y*y>4) and (y0) then writeln ('YES')
else writeln('NO');
end.