<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)</span>
1)
begin
var a:=ReadString('Введите слово->').ToLower;
Println(a=ReverseString(a)?'Перевертыш':'Не перевертыш');
end.
Пример(1):
Введите слово-> Комок
Перевертыш
Пример(2):
Введите слово-> Револьвер
Не перевертыш
2)
begin
var a:=ReadInteger('Число-> ');
Range(1,a).Where(t->a mod t=0).Println;
end.
Пример:
Число-> 100
1 2 4 5 10 20 25 50 100
3)
begin
for var i:=2 to 10000 do
begin
var a:=Range(1,i-1).Where(t->i mod t=0).Sum;
if a=i then Write(i,' ');
end;
end.
Ответ:
6 28 496 8128
Var p,a:integer;
begin
writeln('Введи сторону');
readln(a);
p:=4*a;
writeln(p);
end.
----------
var s,a:integer;
begin
writeln('Введи сторону');
readln(a);
s:=a*2;
writeln(s);
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
<span> алгоритм определения того, угрожает ли конь, стоящий на поле (k, l), полю (m, n)</span>
Кодирование - переход от одной формы представления информации к другой, более удобной для восприятия, хранения, передачи или обработки информации.
