Procedure TForm1.Button1Click(Sender: TObject);
var
xn, e, m : Extended;
xnn : Extended;
begin
Memo1.Clear;
xn := StrToFloat(Edit1.Text);
e := StrToFloat(Edit2.Text);
m := StrToFloat(Edit3.Text);
repeat
xnn := xn;
xn := (1/3)*(2*xnn + (m/(xnn*xnn)));
Memo1.Lines.Append('xn = '+floattostr(xn));
until (Abs(xn-xnn)<e);
<span>end;
</span>
#include <iostream>
using namespace std;
int main()
{
double sum = 0;
for (int i = 0; i < 10; i++)
{
int x;
cin >> x;
sum += x;
}
cout << sum / 10;
return 0;
}
Сетевые технологии являются неотъемлемой частью взаимодействия между компьютерами. В нашем информационном веке немаловажна большая скорость передачи данных, которая с каждым годом увеличивается, благодаря производству нового сетевого оборудования. На сегодняшний день наиболее распространённой и удобной технологией является беспроводная передача данных Wi-Fi (стандарт передачи данных 802.11, если мне не изменяет память) но и у неё есть свои минусы, в отличии от проводной. Если устройство будет получать с сигнал с большей дистанцией, чем запланированно в раздающем устройстве, то соответственно сигнал будет слабее . Но это вы и наверняка и сами знаете.
Если говорить конкретно о сетевом оборудовании, то есть крупные производители, которые поставляют на рынок IT дорогостоющее оборудование такие как (Cisco) , позволяющее по зашифрованным каналам передавать данные. Ведь все данные могут подвергнуться , как внешним , так и внутренним атакам.
Const n=15;
var
a:array[1..n]of integer;
i,i_max:integer;
begin
for i:=1 to n do
begin
a[i]:=random(4)+15;
writeln(a[i]);
end;
writeln;
for i:=1 to n do
write(a[i]:4);
writeln;
i_max:=1;
for i:=2 to n do
if a[i]>a[i_max]then
i_max:=i;
for i:=1 to n do
if a[i]mod 5=0 then
a[i]:=a[i_max];
for i:=1 to n do
write(a[i]:4);
<span> end.</span>
Решение смотри во вложении.