Составьте программу заполнения массива из 100 чисел случайными значениями из диапазона от -20 до 20 паскаль.

program massiv;

uses crt;

var a: array[1..100] of integer;

        i: integer;

begin

    write('наш массив: ');

    randomize;    

    for i: =1 to 100 do

        begin

              a[i]: =random (40) -20; // заполняем очередной элемент массива случайным  

              write(a[i],'   '); // выводим элемент массива на экран

        end;  

    readkey;

end. 

 

1)

program n1; uses crt; var k,n,i: integer; beginwriteln('vvedite n'); readln(n); for i: =1 to n do if n mod i=0 then k: =k+1; writeln('delitelei ',k,' vkluchaya 1 i ',n); readlnend.

 

 

2)

program n1; uses crt; var k,n,i: integer; beginwriteln('vvedite n'); readln(n); for i: =1 to n-1 do if n mod i=0 then k: =k+i; if k=n then writeln ('chislo ravno summe delitelei') else writeln('ne ravno'); readlnend.

 

 

3) вычислить, я так поняла, сумму всего этого?

program n1; uses crt; var k,n,i,j,a: integer; s: real; p: longint; beginwriteln('vvedite a,n'); readln(a,n); p: =1; for i: =1 to n do for j: =1 to i do p: =p*a; s: =s+1/p; writeln(s); readlnend.

14/2=7(0)

7/2=3(1)

3/2=1(1)

1/2=0(1)ответ 1110 в двоичной системе

 

14/8=1(6)

6/8=0(1) ответ 16

 

14/16=0(1) ответ 1

 

65/2=32(1)

32/2=16(0)

16/2=8(0)

8/2=4(0)

4/2=2(0)

2/2=1(0)

1/2=0(1) ответ 1000001в двоичной системе

 

65/8=8(1)

8/8=1(0)

1/8=0(1) ответ 101 в восьмеричной системе

 

  65/16=4(1)

4/16=0(1)ответ "в"

 

из правил сервиса: "пользователи признают, что , которые содержат большое количество , требующих решения, должны быть разделены на два или несколько и в таком виде добавлены в сервис для других пользователей. то есть в одном не может быть несколько ".