3. составить программу нахождения произведения квадратов первых двухсот чисел. с#

ответ:

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 чисел. число получается достаточно огромное.

решение на языке pascal

program pr;

var n,a,b,c, sum: integer;

begin

readln (n);

a: =n div 100;

b: =n mod 100 div 10

c: =n mod 10

sum: =a+b+c;

if   sum mod 2 = 0 then writeln ('сумма цифр четная') else writeln('сумма цифр четная');

readln;

end.

1)

var a,b,c,d: real;

begin

  read(a,b);

  c: =(a+b)/2;

  d: =2*a*b;

  if a> b then begin

    a: =d;

    b: =c;

  end;

  if a< b then begin

  a: =c;

  b: =d;

  end;

  writeln(a,' ',b);

end.

2)

var a,b: integer;

begin

  read(a,b);

  if (a< 1) or (a> 31) then writeln(' день введен неправильно');

  if (b< 1) or (b> 12) then writeln(' месяц введен неправильно');

end.

3)

var a,b,c: real;

begin

  read(a,b,c);

  if (a> b)and(a> c)then writeln(a);  

    if (b> a)and(b> c)then writeln(b);

  if (c> b)and(c> a)then writeln(c);

end.