Для такой сети возможны следующие маски:
255.255.240.0
255.255.248.0
255.255.252.0
Наименьшее значение третьего слева байта: 240
Ответ False
Логический оператор and обозначает то,что все условия должны быть выполнены
А меньше 4 ,но А не равен 4-1
Условие не выполняется
Const
n = 10;
var
a: array[1..n] of string;
i: integer;
begin
for i := 1 to n do
begin
a[i] := chr(ord('A') + i - 1);
writeln(a[i]);
end;
end.
Программа рабочая, скорее всего ты просто вводил элементы в строчку, а у тебя стоит в чтении переход на новую строку(окончание LN), и паскаль просто не видел никакие числа, кроме первого.
И очень муторный и непонятный код, я переписал немножко:
var
col, a: integer;
begin
col := 0;Read(a);
while a <> 0 do
begin
read(a);
if (a mod 3 = 0) and (a mod 2 = 0) then
col := col + 1;
end;
writeln('количество ', col);
end.
Пример:
6 12 9 36 0
количество 3