nurgisaabish12345
29.10.2022 13:42

Упорядочение элементов в подмножестве данных по какому-либо критерию называется ... *​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
arekhvanova
20.07.2021 14:50

console.writeline("введите количество чисел");

            int n = convert.toint32(console.;

            int[] a = new int[n];

            console.writeline("введите числа");

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

                a[i] = convert.toint32(console.;

            int count = 0;

            int min=a[0];

            int max = a[0];

                console.writeline("количество отрицательных");

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

                if (a[i] < 0) { count++; }

                console.writeline(count);

           

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

            if (min > a[i]) { min = a[i]; }

            console.writeline("минимальный элемент = "+min   );

         

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

                if (max < a[i]) { max = a[i]; }

              console.writeline("максимальный элемент = "+ max);

            int s = 0;

            s = min + max;

            console.writeline("сумма");

            console.writeline(s);

            console.writeline("числа кратные пяти и не больше числа задаваемым пользователем");

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

                if (a[i] % 5==0 & & a[i]< n)

                   

                { console.writeline(a[i]); }

            console.readline();

0,0(0 оценок)
Ответ:
milna1
05.10.2021 04:26
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
function IsHamming(n:integer):boolean;
begin
  while n mod 2 = 0 do n:=n div 2;
  while n mod 3 = 0 do n:=n div 3;
  while n mod 5 = 0 do n:=n div 5;
  Result:=(n=1)
end;

begin
  var n:=ReadInteger('n=');
  var s:int64:=0;
  var k:=0;
  var i:=2;
  while k<>n do begin
    if IsHamming(i) then begin
      Inc(k); s+=i; Print(i)
      end;
    Inc(i)
  end;
  Writeln(NewLine,'Сумма элементов последовательности равна ',s);
  n:=ReadInteger('Найти элемент с номером');
  i:=2; k:=0;
  while k<>n do begin
    if IsHamming(i) then Inc(k);
    Inc(i)
  end;
  Writeln('Найденное значение: ',i-1)
end.

Тестовое решение:
n= 33
2 3 4 5 6 8 9 10 12 15 16 18 20 24 25 27 30 32 36 40 45 48 50 54 60 64 72 75 80 81 90 96 100
Сумма элементов последовательности равна 1257
Найти элемент с номером 1000
Найденное значение: 51840000
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота