Var x,y: real;
var a,b,c,d:integer;
begin
readln(x,y);
if (y<1) then
write ('1')
else write ('0');
if (y<-x) then
write ('1')
else write ('0');
if sqr(x)+sqr(y)<1 then
write ('1')
else write ('0');
if sqr(x-1)+sqr(y)<1 then
write ('1')
else write ('0');
<span>end.</span>
Так как $C$1 - абсолютная формула как по столбцу, так и по сточке, то при перемещении в любое направление она не изменится.
A) F=A*B*¬A*B+B ( Формула A*¬A=0)
F=B
б) F=(A+B)*(¬A+¬B)
F=A*¬B+¬A*B
F=A⊕B
в) F=A+A*B+A*C
F=A*(1+B+C)
F=A
Sub Задача()
Dim a, b As Integer
a = InputBox("Введите а!")
b = InputBox("Введите b!")
If (a >= 0 And b >= 0) Or (a < 0 And b < 0) Then
MsgBox ("Знаки одинаковые")
Else
MsgBox ("Знаки разные")
End If
End Sub
<span>
вот процедура на VBA (на нем записываются макросы в Microsoft Office)
и как-то так блок-схема рисуется :D</span>
Красив тот, кто красиво поступает.