Хотя бы В терминологии сетей TCP/IP маской сети называется двоичное число, определяющее, какая часть IP-адреса
узла сети относится к адресу сети, а какая - к адресу самого узла в этой сети. Обычно маска записывается по тем
же правилам, что и IP-адрес. Адрес сети получается в результате применения поразрядной конъюнкции к задан-
ным IP-адресу узла и маске. По заданным IP-адресу узла и маске определите адрес сети.
IP-адрес узла: 219.131.146.97
Маска: 255.255.192.0
2.Маской подсети называется 32-разрядное двоичное число, которое определяет, какая часть IP-адреса компью-
тера относится к адресу сети, а какая часть IP-адреса определяет адрес компьютера в подсети. В маске подсети
старшие биты, отведенные в IP-адресе компьютера для адреса сети, имеют значение 1; младшие биты, отведен-
ные в IP-адресе компьютера для адреса компьютера в подсети, имеют значение 0
Если маска подсети 255.255.248.0 и IP-адрес компьютера в сети 216.195.187.90, то номер компьютера в
сети равен
gl = ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я'];
var
w1, w2: string;
m: set of char;
c: char;
i: integer;
begin
Writeln('Введите первое "слово"');
Readln(w1);
Writeln('Введите второе "слово"');
Readln(w2);
m := [];
w1 := LowerCase(w1);w2 := LowerCase(w2);
for i := 1 to length(w1) do
if w1[i] in gl then Include(m, w1[i]);
for i := 1 to length(w2) do
if w2[i] in m then Exclude(m, w2[i]);
Writeln('Гласные, присутствующие в первом слове и отсутствующие во втором:');
foreach c in m do Write(c, ' ');
Writeln
end.
Тестовое решение:
Введите первое "слово"
Дай, Джим, на счастье лапу мне!
Введите второе "слово"
Сергей Есенин
Гласные, присутствующие в первом слове и отсутствующие во втором:
а у
m, n, k, i, j: integer;
begin
randomize;
repeat
write('Введите число столбцов и строк через пробел: ');
readln(n, m);
until (n in [1..20]) and (m in [1..20]);
for i := 1 to m do begin
for j := 1 to n do begin
A[ i, j ] := random(19) - 9;
write(A[i, j]:5);
end;
if odd(i) then writeln(' ') else writeln;
end;
writeln;
writeln('Заменяем отрицательные числа на нули, положительные - на единицы:');
writeln;
for i := 1 to m do begin
for j := 1 to n do begin
if A[ i, j ] <= 0 then A[ i, j ] := 0
else A[ i, j ] := 1;
write(A[i, j]:5);
end;
if odd(i) then writeln(' ') else writeln;
end;
end.
p.s: не совсем понятно последнее задание - вывести нижнюю треугольную матрицу. Сделать новую или что?