Решить по информатике с клавиатуры последовательно вводят целые числа и высчитывается их сумма если с клавиатуры вводят 0, то больше числа не вводят. найти сумму всех введеных чисел. надо начать так x-число (меняется) s-сумма до цикла s: =0

program summa;

uses crt;

var n,s: integer;

begin

      clrscr;

      write('вводите числа конец ввода 0: ');

      s: =0;  

      repeat

        readln(n);    

 

        s: =s+n;

      until (n=0);

    writeln;

    writeln('сумма чисел: ',s);

    readkey;

end.

 

 

 

 

 

 

 

program zadacha;

var x: integer;

begin

  randomize;

  x: =random(9999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999)+1000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000;

  if (x mod 3=0) then begin

    if (x mod 9=0) then writeln('делится на 3 и на 9);

  end;

  if (x mod 3=0) then begin

    if (x mod 9> 0) then writeln('делится только на 3);

  end;

  if (x mod 9=0) then begin

    if(x mod 3> 0) then writeln('делится только на 9);

  end;  

end.

 

 

p.s. вы уверены, что стозначное число?

Начнем с того, что даже если вам каким-то образом удастся получить IP адрес пользователя вк, то это вам ровным счетом ничего не даст. В лучшем случае вы узнаете город, в котором находится этот человек и больше ничего. И это только в том случае, если этот субъект не использовал средства анонимизации. Как мы видим, в большинстве случаев у людей возникают проблемы достаточно серьезного характера: кого то шантажируют, на кого то клевещут, рас ложные сведения и т.д. В большинстве случаев злоумышленник перестраховывается и использует средства анонимизации. Поэтому полученный IP адрес вполне вероятно окажется IP адресом какого-нибудь анонимайзера или впн сервиса.