<span>words = input().split()N = len(words)for pos in range(N-1): for i in range(pos+1, N): if words[i] < words[pos]: words[i], words[pos] = words[pos], words[i]
print(words[N//2])
Ответ:
<span>integration;"integration";'integration'</span>
</span>
Uses crt;
Var A:array[1..10]of integer;
q,w,i,k,j:integer;
begin
randomize;
for q:= 1 to 10 do
begin
A[q] := random(256);
write(A[q]:4)
end;
for i := 1 to 9 do
for j := 1 to 10 - i do
if A[j] > A[j + 1] then begin
k := A[j];
A[j] := A[j + 1];
A[j + 1] := k;
end;
for i:=1 to 10 do
w:=(A[1]+A[10])/2;
write(w)
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (a, b, c) := ReadReal3('Введите a, b, c:');
Print(0.5 * Sqrt(2 * b * b * +2 * c * c - a * a))
end.
<h2>Пример</h2><h3>Введите a, b, c: 4.5 5.2 3.12</h3><h3>16.0672236556289</h3>
function myFunction(x: real):real;
begin
if (x>=-10) and (x<2) then
myFunction:=sqr(x)+4*x-7 else
if ((x<-10) and (x<>0)) or (x>=2) then
myFunction:=1/(sqr(x)+4*x-7);
end;
var x,y: real;
begin
write('Введите x: ');
readln(x);
y:=myFunction(x);
writeln('y = ',y);
end.
На самом деле условие F(х)=0 при х=0 лишнее, поскольку значение F(x)=0.5x² при x≥-1 и так дает F(0)=0.
var
x,F:real;
begin
x:=-3;
while x<4.01 do begin
if x<-1 then F:=x+3
else F:=0.5*x*x;
Writeln('x=',x:4:1,', F=',F:5:3);
x:=x+0.5
end
end.
Результат
x=-3.0, F=0.000
x=-2.5, F=0.500
x=-2.0, F=1.000
x=-1.5, F=1.500
x=-1.0, F=0.500
x=-0.5, F=0.125
x= 0.0, F=0.000
x= 0.5, F=0.125
x= 1.0, F=0.500
x= 1.5, F=1.125
x= 2.0, F=2.000
x= 2.5, F=3.125
x= 3.0, F=4.500
x= 3.5, F=6.125
x= 4.0, F=8.000