В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
vladka0405
vladka0405
24.04.2022 09:53 •  Информатика

Практическое занятие на тему : Построение логических схем нужна, очень, очень
Тема 10-11 класс


Практическое занятие на тему : Построение логических схем нужна, очень, очень Тема 10-11 класс

Показать ответ
Ответ:
mark086
mark086
15.01.2022 14:26

ответ:

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

0,0(0 оценок)
Ответ:
Fedor122790
Fedor122790
13.08.2022 15:54

var  

x, y: integer;

n: integer;

sum: integer;

mindif: integer;

f: text;

begin

   assign(f,'C:\27-A.txt');

   reset(f);

   readln(f, n);

   sum := 0;

   mindif := 20001;

   while not eof(f) do begin

       readln(f, x, y);

       if x > y then  

           sum := sum + x

       else  

           sum := sum + y;

       if (abs(x - y) < mindif) and (abs(x-y) mod 3 <> 0) then mindif := abs(x-y);

   end;

   if sum mod 3 <> 0 then

       writeln(sum)

   else

       writeln(sum - mindif);

end.

Объяснение:

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота