1)составить программу которая выводит на экран каждое 5-ое число и таких чисел 20. 2)составить программу которая вычисляет произведение натуральных чисел от 5 до 10.

1. var i: integer; a: array [1..20] of integer; begin randomize; writeln('массив: '); for i: =1 to 20 do a[i]: =random(21)-10;   for i: =1 to 20 do write(a[i]: 5); writeln; writeln('каждый пятый эелемент массива: ');   for i: =1 to 20 do if i mod 5 = 0 then write(a[i]: 5); end. 2. var x,i: integer; a: array [1..20] of integer; begin randomize; writeln('массив: ');   for i: =1 to 20 do a[i]: =random(11); for i: =1 to 20 do write(a[i]: 5); writeln; writeln('натуральные числа в диапазоне [5..10]: ');   for i: =5 to 10 do write(a[i]: 5); writeln; x: =1; writeln('их произведение: ');   for i: =5 to 10 do x: =a[i]*x; write(x: 5);   end.

рассмотрим в: если мы добавим к нему какой-нибудь из кусочков ip-адреса, то получится число, превосходящее лимит в 255. поэтому в будет последним.

рассмотрим б. так как в нём отсутствуют точки, то это либо начало, либо конец. так как конец занят, это будет у нас началом, поскольку, если мы добавим б к концу какому-нибудь из ip-адресов, то, опять же, будет повышен лимит.

остаются а и г: если мы добавим г к концу а, то будет превышен лимит 1334 > 255, то есть у нас остаётся один вариант - добавить г к началу а.

итого: бгав

22.4.133.133.73

{pascalabc}

program f0rwardirop;

var  

  r,x,y: real;

  b: boolean;

  i: integer;

  s: string;

begin

  s: ='**** -=alphaeus=- ****';

  for i: =1 to 22 do begin write(s[i]); sleep(200) end;

  writeln; write('ok, введите r = '); readln(r);

  write('теперь введите х = '); readln(x);

  write('и, наконец, введите y = '); readln(y);

  if x> =0 then

    if (x*x+y*y < = r*r) then b: = true else b: =false

    else

      if (abs(x) < =r) and (abs(y) < =r) and (abs(x) < = abs(y)) then b: = true else b: =false;

  if b then writeln('точка (',x,',',y,') принадлежит закрашенной области')

  else writeln('точка (',x,',',y,') не принадлежит закрашенной области');

end.