var
x, y: real;
begin
readln(y);
if y >= 0 then x := sqr(y) - sqrt(y) else
x := 3 / y + y;
writeln(x);
end.
Function sq(var x1,y1,x2,y2,x3,y3: real):real;
<span>begin
</span><span>// вычисляем площадь с помощью
</span><span>// векторного произведения
</span><span> sq:=abs((x2-x1)*(y3-y1)-(x3-x1)*(y2-y1))/2;
</span><span>end;
</span><span>// основная программа
</span><span>var x1,y1,x2,y2,x3,y3,x4,y4,s:real;
</span><span>begin
</span><span> write('координаты 4 вершин x1 y1 x2 y2 x3 y3 x4 y4 через пробел: ');
</span><span> readln(x1,y1,x2,y2,x3,y3,x4,y4);
</span><span> s:=sq(x1,y1,x2,y2,x3,y3)+sq(x1,y1,x4,y4,x3,y3);
</span><span> writeln('площадь четырехугольника S = ',s);
</span><span>end.
</span>координаты 4 вершин x1 y1 x2 y2 x3 y3 x4 y4 через пробел: 2 2 4 4 7 4 6 2
<span>площадь четырехугольника S = 7
</span>
F = (p ⇒ q) ⇒ (q ⇒ p)
Таблица истинности приведена на фото
P.S эту операцию лучше называть не "следствие", а импликация.
Var
N,A:integer;
B:longint;
k:boolean;
Begin
Write('N = ');
ReadLn(N);
For N:= 1 to N do
Begin
k:=true;
A:=N;
B:=A*A;
While A<>0 do
Begin
if (A mod 10 <> B mod 10) then k:=false;
A:= A div 10;
B:= B div 10;
End;
if k then Write(N,' ');
End;
End.
Program n1;
var a,sum: integer;
begin
readln(a);
sum:=0;
while (a<>0) do
begin
if(a mod 6=0) and (a mod 10=6) then sum:=sum+a;
readln(a);
end;
writeln(sum);
end.