Def pseudo_list():
for i in range(N):
yield (i*9876+1024)%1000
N = 10**6 + 1
A = pseudo_list()
count = [0] * 1000
for x in A:
count[x] += 1
x = 0
sum_count = count[0]
while sum_count <= N//2:
x += 1
<span> sum_count += count[x] </span>
<span>print(x)
Ответ: 496</span>
На языке программирования Pascal выведет число 55.
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var a:=ArrRandom(10,-15,15); a.Println;
var min:=a[0]; var max:=min;
foreach var e in a do
if e<min then min:=e
else
if e>max then max:=e;
Writeln('min=',min,', max=',max);
end.
<u><em>Тестовое решение:</em></u>
-4 -3 3 -9 15 11 4 15 -11 10
min=-11, max=15
Const e=0.001;
var a1,a2:real;n:integer;
begin
a1:=0.5;
a2:=sin(a1)/cos(a1)/2;
n:=2;
writeln(n,a2:7:4);
while abs(a2-a1)>=e do
begin
a1:=a2;
a2:=sin(a1)/cos(a1)/2;
n:=n+1;
writeln(n,a2:7:4);
end;
writeln('n = ',n);
end.
Результат:
<span>2 0.2732
3 0.1401
4 0.0705
5 0.0353
6 0.0177
7 0.0088
8 0.0044
9 0.0022
10 0.0011
11 0.0006
n = 11</span>
Ответ:
Объяснение:
2)
program uravn;
var x,y:real;
begin
writeln('Введите х');
readln(x);
y:=x+2.5;
y:=y*x;
y:=y-1;
y:=y*x;
y:=y+1;
writeln('y=',y:4:2);
readln;
end.
3)
program rasst;
var
d,xa,ya,xb,yb:real;
begin
writeln('Введите координаты точек А(xa,ya), В(xb,yb)');
write('xa=');
readln(xa);
write('ya=');
readln(ya);
write('xb=');
readln(xb);
write('yb=');
readln(yb);
d:=sqrt(sqr(xb-xa)+sqr(ya-yb));
writeln('|AB|=',d:4:2);
readln;
end.