Program z13;
var s,l,pi:real;
r:integer;
begin
writeln('r=');
readln(r);
pi:=3.14;
s:=pi*sqr(r);
l:=2*pi*r;
writeln('s=',s,' l=',l);
readln;
end.
Program zadacha;
var a,b,c:integer;
begin
read (a);
b:= a div 10;
c:= a mod 10;
a:= abs(b-c);
write (a);
end.
<span>1) F=Av(¬A&B)
По закону дистрибутивности раскроем скобки
</span>(Av¬A)&(AvB)
Av¬A = 1, значит остаётся AvB
<span>2) F =A&(¬AvB)
</span>По тому же закону раскрываем скобки
(A&¬A)v(A&B)
A&¬A = 0, значит остаётся A&B
3. <span>(AvB)&(¬BvA)&(¬CvB)
По закону склеивания </span>(AvB)&(¬BvA) = A , получается, что выражение принимает вид
A&(¬CvB)
Можно раскрыть скобки, получим
A&¬C v A&B
<span>4) F =(1v(AvB))v((AC)&1)
</span>Скобка (1v(AvB)) = 1, так как 1 v ЧТОУГОДНО = 1
Получаем выражение
1v((AC)&1) = 1, так как 1 v ЧТОУГОДНО = 1
Ответ 1
===== PascalABC.NET =====
begin
var (a, b) := ReadInteger2;
Swap(a,b);
Print(a, b)
end.