Var naibolwee:int64;
i:integer;
A:array [1..4] of int64;
function max(a,b:int64):int64;
begin
if a>b then max:=a else max:=b;
end;
begin
for i:=1 to 4 do
read(A[i]);
for i:=1 to 3 do
naibolwee:=max(A[i],A[i+1]);
writeln(naibolwee);
<span>end.</span>
B) End. завершает команду выбора
Если маска будет такая:
255.255.255.192 то адресов будет 64
Такая маска:
255.255.255.128 - 128 адресов. Значит нам подойдет этот вариант и в нем 25 единиц.
Var
i,m,n,s:integer;
function fact(a:integer):integer;
var l:integer;
begin
l:=1;
for i:=2 to a do
l:=l*i;
fact:=l;
end;
begin
read(m);
readln(n);
s:=0;
for i:=m to n do
if i mod 2=0
then s:=fact(i)+s;
writeln('Suma: ',s);
end.