Восстановите ip-адрес: а) 20 б) 134, 72 в) 1, 2 г) 35 (с решением)

ответ:

20 1,2 35 134.72

201.235.134.72

авгб

объяснение:

так как ip-адрес не может иметь в 4 частях числа больше 255, просто подставляем методом перебора подходящие значения

Program mass; uses   crt; var   a: array [1..10] of integer;   i: integer; begin   randomize;   writeln('исходдный массив: ');   for i : = 1 to 10 do   begin       a[i] : = random(20) - 10;       write(' ', a[i], ' ');   end;   writeln;   writeln('после замены отрицательных чисел на 0: ');   for i : = 1 to 10 do   begin       if a[i] < 0 then a[i] : = 0;       write(' ', a[i], ' ');   end;   writeln; end. ща переделаю не увидел что ті изменила

Const nmax=20; var a: array [1..nmax+1] of byte; n, j, i: byte; x: integer; begin       repeat           write('количество элементов, не более ', nmax, ', n=');             readln(n);       until n in [1..nmax];       for i: =1 to n do a[i]: =random(21);       writeln('исходный массив');       for i: =1 to n do write(a[i]: 4);       writeln;       i : = 1;       while (a[i] mod 5< > 0) and (i< n) do inc(i);       if (i< n) or ((i=n) and (a[i] mod 5=0)) then       begin           write('x=');           readln(x);           for j: =n downto i+1 do  a[j+1]: =a[j];           a[i+1]: =x;           inc(n);       end         else             writeln('нет элемента с заданными свойствами');       writeln('преобразованный массив');       for i: =1 to n do write(a[i]: 4);       writeln;       readln; end.