Ответ:
Как мне говорили : "самое главное в Excel - это правая кнопка мыши, потому что, если вы не знаете как работать в Excel, то, просто кликая ей в разных ситуациях, можно научится работать также используется клавиатура для внесения данных
Объяснение:
{$APPTYPE CONSOLE}
Const
n = 13;
Type
Mass = array[1..n] of integer;
Procedure BbIBOD(Var A:Mass);
Var
i:integer;
Begin
For i:= 1 to n do
Write(' ',A[i])
End;
Function SWP(Var A:Mass; c:real):integer;
Var
i,j:integer;
Begin
For i:= 1 to n do
if (A[i] < 0)and(A[i] <= c) then j:=i;
if j <> 0 then
Begin
WriteLn('Искомый элемент: ',A[j],'[',j,']');
A[j]:=Sqr(A[j]);
i:=A[n-1];
A[n-1]:=A[j];
A[j]:=i;
Write('Новый массив:');
BbIBOD(A);
End
else Write('В массиве нет отрицательных элементов')
End;
Var
A:Mass;
i:integer;
c:real;
Begin
Randomize;
Write('Исходный массив(',n,'):');
For i:= 1 to n do
A[i]:=random(2*n+1)-n;
BbIBOD(A);
WriteLn;
Write('Введите число: ');
ReadLn(c);
SWP(A,c);
ReadLn
End.
1) Вычисляет сумму цифр любого 4-значного числа
2) 0 2 4 9 12 15
Через месенджеры. А если программно, т вот так: комп пользователя подключённый к тырнету, потом сам тырнет как огромный сервир(хотя по риалу все сложнее) что ему передали, а поняв, передаёт сообщение другому абаненту...
1 строка: 101011111(2); 537(8); 351(10) ;15F(16)
2 строка: 001100001(2); 141(8); 97(10); 61(16)
3 строка: 1100101(2); 145(8); 101(10); 65(16)
4 строка: 1100100(2); 144(8); 100(10); С4(16)