Если маска будет такая:
255.255.255.192 то адресов будет 64
Такая маска:
255.255.255.128 - 128 адресов. Значит нам подойдет этот вариант и в нем 25 единиц.
program raf105;
const
n = 7;
var
a:array[1..n] of integer;
i,x,y: integer;
z: boolean;
begin
write('Введите 2 числа. Минимальное и максимальное: ');
readln(x,y);
writeln('Заполните массив из ',n,' элементов');
for i:=1 to n do
readln(a[i]);
write('Изменённый массив: ');
for i:=1 to n do
begin
if (not z) and (x<=abs(a[i])) and (abs(a[i])<=y) and (a[i]<0)
then begin
a[6]:= a[i];
a[i]:= i;
z:= True;
end;
write(a[i],' ');
end;
end.
<h3><u>PascalABC 3.4.2</u></h3>
Например, пластинка для граммофона.
Var i:longint; m:array[1..10] of longint;
Begin
for i:=1 to 10 do
begin
read(m[i]);
if m[i] mod 2 = 1 then
m[i]:=m[i]*4 else
m[i]:=m[i]*3;
end;
for i:=1 to 10 do
write(m[i],' ');
<span>End.</span>
Function fact(n As Integer) As Long
Dim i As Integer, p As Long
p = 1
For i = 2 To n
p = p * i
Next i
fact = p
End Function
Sub Test()
Dim n As Integer, s As Long, i As Integer
s = 0
n = CInt(InputBox("Введите число n"))
For i = 1 To n
s = s + fact(i)
Next i
MsgBox s
End Sub