Const nx=30;
var a:array[1..nx] of string; p,i,j,n,k:integer; s,d:string;begin
s:='Дана строка символов состоящий из отдельных слов разделенных пробелом';
s:= s + ' Упорядочить слова по длине в убыванию и вывести на печать';
p:=1;while p>0 do begin
i:= i + 1; p:= pos(' ',s);
if p>0 then a[i]:=trim(copy(s,1,p)) else a[i]:=s;writeln(a[i]);Delete(s,1,p);end;
for k:=1 to i do begin
for j:=2 to i do begin
if length(a[j-1]) < length(a[j]) then begin
d:=a[j-1];a[j-1]:=a[j];a[j]:= d;end;end;end;
writeln;
for k:=1 to i do
<span>writeln(a[k]);end.</span>
Const n=10; m=5;
var a:array[1..n,1..m+1] of integer;
i,j,k,sp,s:integer;
begin
Randomize;
writeln(' Результаты соревнований');
for i:=1 to n do
begin
s:=0;
for j:=1 to m do
begin
a[i,j]:=random(50)+50;
write(a[i,j]:4);
s:=s+a[i,j];
end;
a[i,m+1]:=s;
writeln(s:5);
end;
write('k='); readln(k);
sp:=0;
for i:=1 to n do
if a[i,m+1]>=k then sp:=sp+1;
writeln('sp=',sp);
end.
Пример:
Результаты соревнований
69 52 91 62 65 339
70 53 96 56 97 372
78 98 94 61 62 393
62 86 50 58 95 351
82 98 53 56 81 370
75 64 56 85 54 334
69 99 53 72 97 390
55 75 66 59 61 316
99 71 83 75 51 379
91 73 53 88 79 384
k=350
sp=7
<span>167960
вот так считала, правда считает долго, а как оптимизировать не знаю
Ruby 22
n = 0
for bin in 1..2**30-1
s = ("000000000000000000000000000000" + bin.to_s(2))[-30..-1]
next if s.include?("11")
i = 0
for j in 0..s.size
i+=1 if s[j] == "1"
end
next if i != 11
n += 1
p [s, i, n]
end
</span>
Мультимедиа — информационная система, обеспечивающая
одновременное представление информации в различных формах — звук,
анимированная компьютерная графика, видеоряд. Например, в одном
объекте-контейнере может содержатьсяа также, возможно, способ интерактивного взаимодействия с ней.
Var a: real;
i, k: integer;
begin
readln(k);
for i := 1 to k do
a := sqrt(2 + a);
writeln(a);
<span>end.
Вот так, насколько я понимаю: вычисляем с конца корень из 2, потом к нему прибавляем 2 и опять вычисляем корень... И опять х) В общем, должно получится</span>