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
PascalABC.net
var
i:integer;
a:array[1..10]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
begin
a[i]:=random(-5,5);
write(a[i]:4);
end;
for i:=1 to 10 do
if a[i]>0 then a[i]:=a[i]+2
else a[i]:=0;
writeln;
writeln('Преобразованный массив:');
for i:=1 to 10 do
write(a[i]:4);
<span>end.</span>
using System;
namespace ConsoleApp4
{
class Program
{
static void Main(string[] args)
{
Console.WriteLine("Введите число:");
int n, sum = 0;
n = Int32.Parse(Console.ReadLine());
if (n != 0)
{
do
{
sum += n;
Console.WriteLine("Введите число:");
n = Int32.Parse(Console.ReadLine());
} while (n != 0);
Console.WriteLine("Сумма равна: " + sum);
} else
{
Console.WriteLine("Сумма равна: " + sum);
}
}
}
}
Красив тот, кто красиво поступает.
while условие выполнения цикла do
begin
{Операторы}
end;