У МЕНЯ СОР У МЕНЯ

4.Дан фрагмент программы: #include int main () { cout << “Hello, World!\n”; } -Что означает строка #include?

5. Какое условие называется составным?

, у меня сегодня сор!

ответ:

static void main(string[] args)

        {

            int n; double proizvedenie = 1;

            console.write("укажите размерность массива: ");

            n = convert.toint32(console.;

            int[] mas = new int[n];

            random rnd = new random();

            for (int i = 0; i < n; i++)

            {

                mas[i] = rnd.next(1, 10);

            }

            console.writeline("массив: ");

            for (int i = 0; i < n; i++)

            {

                console.write(string.format("{0,3}", ;

            }

            console.writeline();

            if (n > = 200)

            {

                for (int i = 0; i < 200; i++)

                {

                    proizvedenie = proizvedenie * math.pow(mas[i], 2);

                }

                console.writeline("произведение квадратов первых 200 чисел = " + proizvedenie);

            }

            else

            {

                console.writeline("размерность массива < 200.");

            }

            console.writeline();

            console.readkey();

        }

объяснение:

как я понял из вопроса - создаётся случайный массив из 200+ чисел, и находится произведение квадратов первых 200 чисел. число получается достаточно огромное.

Программа точно по условию:

Var A,d,S:integer;
Begin
Write('Искомые числа:');
For A:= 300 to 600 do
    Begin
    S:=A+1;
    d:=A div 2;
    While d>1 do
       Begin
       if A mod d = 0 then S:=S+d;
       d:=d-1
       End;
    if S = 50 then Write(' ',A);
    End
End.

Программа, разумеется, не выдаст ни одного числа, т.к. каждое число делится на себя и на единицу. То есть сумма делителей всегда будет больше 301.

Если не брать в расчёт само число и единицу, то программа будет выглядеть так:

Var A,d,S:integer;
Begin
Write('Искомые числа:');
For A:= 300 to 600 do
    Begin
    S:=0;
    d:=A div 2;
    While d>1 do
       Begin
       if A mod d = 0 then S:=S+d;
       d:=d-1
       End;
    if S = 50 then Write(' ',A);
    End
End.

Результат работы программы:

Искомые числа: 301 481 589