1)Program n_1;
var x,y,z,c:integer;
begin
readln (x,y,z);
c:=x;
if c>y then c:=y;
if c>z then c:=z;
writeln (c);
end.
2)Program n_2;
var x,y,z:integer; q,w,e:boolean;
begin
readln (x,y,z);
q:= (y>x) and (z>x);
w:= (y<x) and (y<z);
e:= (z<y) and (z<x);
if e=True then writeln (z);
if w=True then writeln (y);
if q=True then writeln (x);
end.
3)Program n_3;
var x,y,z:integer;
begin
readln (x,y,z);
if (x<y) and (x<z) then writeln (x);
if (y<x) and (y<z) then writeln (y);
if (z<y) and (z<x) then writeln (z);
end.
F = (p ⇒ q) ⇒ (q ⇒ p)
Таблица истинности приведена на фото
P.S эту операцию лучше называть не "следствие", а импликация.
Uses crt;
var
i,a:integer;
begin
for i:=1 to 16 do
begin
textcolor(i);
a:=random(50);
write(a);
sound(I*100);
delay(5000);
nosound;
end;
readkey;
end.<span>
</span>
Var n, i: integer;
begin
readln(n);
for i := 1 to n do
if (i mod 2 = 1) then
writeln(i);
<span>end.</span>
===== PascalABC.NET =====
begin
var a := ReadReal('Введи длину ребра');
var v := Pi * a ** 3 / (4 * Tan(Pi / 6));
Writeln('V = ',v)
end.