1. Добавлено 3 бита, 224₁₀=1110 000₂
2. Судя по маске получим 8 подсетей, количество битов узлов подсети - 4
3. В каждой подсети по 30 узлов + адрес подсети + широковещательный адрес
4. Сетевой адрес этой подсети 192.168.200.128
5. Адрес IPv4 первого узла в этой подсети 192.168.200.129
6. Адрес IPv4 последнего узла в этой подсети 192.168.200.158
7. Широковещательный адрес IPv4 в этой подсети 192.168.200.159
Давно пользуясь этим антивирусов, но там есть 2-е версии платная и бесплатная.
В начале я выбрала платную, там он проводит проверки автоматически и сам проверяет любые файлы, а так же там открыты и другие функций. Ну а в бесплатной приложения нужно проверять самому,а ещё половина функций закрыта.
if M[a, 4+1-a] < M[min, min]
then min := M[a, 4+1-a]
- у тебя в матрице рандомные числа максимум до 10, ты назначаешь их в min и max, а потом эти min и max пытаешься использовать как индексы.
Заведи отдельные переменные для сохранения индексов, например imin и imax и пользуйся ими, например как-то так:
for a := 1 to 4 do
if M[a, 4+1-a] < M[imin, imin]
then begin
min := M[a, 4+1-a];
imin := a;
end
По поводу параметра цикла не уверен, возможно в Pascal.ABC есть какие-то особенности по сравнению с обычным паскалем. Нашел вот такое:
"Описание параметра цикла for в заголовке цикла соблюдает принцип локальности: переменная описывается в том месте, где она впервые понадобилась
begin
for i: integer := 1 to 9 do
write(i,' ');
// Здесь переменная i не доступна!
for var i := 9 downto 1 do // описание с автоопределением типа
write(i,' ');
end."
Всего 21 символ, значит надо 16×21=336 бит
Паскаль АВС
Program Sanmy;
uses crt;
var
a,b,c,d:real;
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
if b>a then a:=b;
if c>a then a:=c;
if d>a then a:=d;
writeln ('Максимальный элемент = ',a);
end.