<span>1101012 + 101102 = 1202114
</span>1101012 - 101102 = 999910
1325 + 425 = 1750
1325 - 425 = 900
D = (x1^2 + x2^2)^(1/2)
Q = I^2 * R
J = 2 * pi * R
S = v0 * t + a * t^2 / 2
R = 1 / (1 / R1 + 1 / R2)
ИЛИ
D = (x1*x1 + x2*x2)^(1/2)
Q = I*I * R
J = 2 * pi * R
S = v0 * t + a * t*t / 2
R = 1 / (1 / R1 + 1 / R2)
портативный пк, в корпусе которого объединены типичные компоненты ПК, включая дисплей , клавиатуру устройство указания (обычно сенсорная панель, или тачпад), а также батарею.
Windows (3.x, 95, 98, Me, 2000, XP(Pro, Home, MCE), 2003 Server, Vista), Windows Mobile Mac OS ( знаю мало, но юзал Tiger, Pantera) Unix (Linux, OpenBSD, Inferno, Fedora, Mandriva и т. т. д. ) Sun Solaris Symbian
Program NoName;
Var vid,i,n,k,max:integer;
sr:real;
a:array[1..9999] of integer;
Begin
mx:=0;
max:=0;
k:=0;
vid:=0;
sr:=0;
Read (n);
For i:=1 to n do
Begin
Writeln(a[i] :3);
max:=a[1];
If a[i] > max then
max:=a[i];
If a[i] < 0 then
Begin
vid:=vid + a[i];
k:=k+1;
End;
End;
sr:=vid / k;
For i:=1 to n do
Begin
If a[i] < max then
Write (a[i])
Else
Write (sr);
End;
End.
Не могу быть уверенным за правильность, нет возможности проверить