Запишите ip- адрес из четырёх десятичных чисел в 32-битном виде: 55.158.16.33

var

  i: integer;

  a: array[1..16]of integer;

begin

  for i: =1 to 16 do

begin

  a[i]: =random(40)-20;

  if a[i] mod 3=0 then write(i,' ');

end;

writeln;

end.

var

  x: array[1..15]of integer;

  i,min,z: integer;

begin

  min: =32000;

  z: =0;

  for i: =1 to 15 do

  begin

  readln(x[i]);

  if x[i]> 0 then if x[i]< min then min: =x[i];

  if x[i]=0 then inc(z);

  end;

  writeln(min);

  writeln(z);

end.

фамилия

                  имя

          отчество

оба ответа подходят в языке

но логичнее нет

просто у нет в 2 функции: согласие с отрицанием и отрицание отрицания

ответ нет, на рисунке белая скатерть

(я выразил отрицание к вопросу)

словом нет можно выразить и отрицание и согласие

да здесь вообще не подходит его не рассматривает

у нет 2 варианта либо согласие с отрицанием - нет, скатерть не белая. либо отрицание вопроса - нет, белая.