1) Маска подсети: 11111111.11111111.11110000.00000000
IP: 11101000.01111110.10010110.00010010
номер сети - там где у маски единицы, а номер хоста В сети - там где у маски нули.
т.е 0110.00010010 отсюда получаем номер хоста: 0110.00010010 =1554
2) Маска подсети: 11111111.11111111.11100000.00000000
IP: 11001110.10011110.01111100.01000011
Номер хоста: 11100.01000011= 7235
3) Маска подсети: 11111111.11111111.11111100.00000000
IP: 11100010.10111001.01011010.10100010
Номер хоста: 10.10100010=674
var
s: string;
i: integer;
begin
Write('s = '); Readln(s);
for i := 1 to Length(s) do
if s[i] = 'а' then s[i] := 'б';
Write(s);
Readln
end.
1. С:\Физика\Задачи\Механика
2. С:\Физика\Задачи
3. С:\Физика
4. С:\Физика\Экзамен\Вопросы.doc
Путь: С:\Физика\Экзамен\Вопросы.doc
Если одномерный массив, то:
program min;
var a:array[1..10] of integer;
i,min,k:integer;
begin
writeln('Введите элементы массива');
for i:=1 to 10 do
readln(a[i]);
min:=a{1];
for i:=1 to 10 do
if a{i]<min
then min:=a{i};
for i:=1 to 10 do
if a{i]=min
then k:=k+1;
writeln('Всего элементов с минимальным значением =',k);
end.