#+(Л) +^#(Е) #(С) ^#(К) ^(А)
Ответ: Леска
<span><span>Var
x: Array [1..50] of Real;
i,n: Byte;
s: Real;
BEGIN
Repeat
Write('Введите кол-во элементов не более 50: ');
Readln(n);
until n in [1..50];
s:=0;
For i:=1 to n do
begin
x[i]:=10*Random;
If Odd(i) Then
s:=s+x[i];
Write(x[i]:7:2);
end;
Writeln;
Writeln('Сумма элементов с нечетными индексами = ',s:0:2);
END.</span></span>
var
x, n:integer;
begin
write('n = ');
readln(n);
x := n mod 10;
n := n div 10;
while n > 0 do
begin
if n mod 10 < x then
begin
writeln('Последовательность неупорядочена по возрастанию');
readln;
Exit;
end;
x := n mod 10;
n := n div 10;
end;
writeln('Последовательность упорядочена по возрастанию');
readln;
end.
И папка, и файл находятся на компьютере и имеют свой значок. Также любые манипуляции с папкой влияют и на файл в ней, и на папку. Они связаны.
Число -41(10)=11010111(2)