Var
K,i:integer;
Begin
Write('K = ');
ReadLn(K);
i:=1;
Repeat
Write(2*i-1,' ');
i:=i+1;
Until i>K;
End.
Хотя гораздо проще было бы сделать так:
Var
K:integer;
Begin
Write('K = ');ReadLn(K);
For K:= 1 to K do
Write(2*K-1,' ');
End.
1. Добавлено 9 бит, так как в маске 255.0.0.0 - 8 единичных бит,
а в маске 255.255.128.0 - 17 единичных бит
2. Судя по маске получим 512 подсетей
3. В каждой подсети по 32766 узлов + адрес подсети + широковещательный адрес
4. Сетевой адрес этой подсети 10.101.0.0
5. Адрес IPv4 первого узла в этой подсети 10.101.0.1
6. Адрес IPv4 последнего узла в этой подсети 10.101.127.254
7. Широковещательный адрес IPv4 в этой подсети 10.101.127.255
1.
var n, k: integer;
begin
read(n);
k := n div 10;
n := n mod 10;
k := k + n div 5;
n := n mod 5;
k := k + n;
writeln(k);
<span>end.
2.
var n: integer;
begin
read(n);
writeln(n, ' суток = ', 24 * n, ' часов = ', 1440 * n, ' минут = ', 86400 * n, ' секунд');
<span>end.</span></span>
def f():
result = []
for i in range(100, 10000):
str_num = str(i)
num = sum([int(x) ** len(str_num) for x in str_num])
if num == i:
result.append(i)
return result
