У зв'язку з розвитком науки і техніки, а також у зв'язку з появою попиту на ринку послуг в галузі телекомунікацій було вирішено ввести нову послугу, на базі новітньої технології IP-телефонії. IP-телефонія - це технологія передачі голосового трафіку по каналах мережі Internet, тобто по мережах з пакетною маршрутизацією (VoIP, Voice over IP). На відміну від IP-телефонії, традиційна телефонія - це передача голосу з виділенням окремого каналу для кожного з'єднання. Більш доступною мовою "IP-телефонія" - це передача телефонних з'єднань по IP, Інтернет-протоколу.
===== PascalABC.NET =====
begin
var (s, n) := ReadInteger2('Введите S и N:');
var r := 0;
for var m10 := 0 to S div 10 do
begin
for var m5 := 0 to (S - 10 * m10) div 5 do
begin
if m10 + m5 > N then
break;
for var m2 := 0 to (S - 10 * m10 - 5 * m5) div 2 do
begin
if m10 + m5 + m2 > N then
break;
for var m1 := 0 to S - 10 * m10 - 5 * m5 - 2 * m2 do
begin
if m10 + m5 + m2 + m1 > N then
break;
if (m10 * 10 + m5 * 5 + m2 *2 + m1 = s) and
(m10 + m5 + m2+ m1 = N) then
begin
$'{m10} x 10 + {m5} x 5 + {m2} x 2 + {m1} x 1'.Println;
Inc(r)
end
end
end
end
end;
if r > 0 then
Println('Найдено вариантов размена:', r)
else
Println('Вариантов такого размена нет')
end.
А) двигатель, руль, колесо, дверь, окна и т.д.
б)материнская плата, корпус, разъёмы , дисковод и т.д.
в)кабинеты, доски, парты, стулья и т.д.
г) генерал, лейтенант, взвод, рота и т.д.
д)республики, области, правительство и т.д.
Const
N = 10;
Var
X:array[1..N] of integer;
i,k:integer;
S:real;
Begin
k:=0;
S:=0;
WriteLn('Введите массив A[',N,']:');
For i:= 1 to N do
Begin
Read(X[i]);
if X[i]>1 then k:=k+1
else if X[i]<0 then S:=S+X[i];
End;
WriteLn('k = ',k);
WriteLn('S = ',S);
End.
Ответ врде будет
x=2.5+x2