М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
BOGDANGER
BOGDANGER
18.10.2020 17:20 •  Информатика

Решить эту . (написать программу на языке c++) . в некотором государстве в обращении применяются купюры достоинством 1, 5, 10, 50, 100, 500 и 1000 единиц. сколькими можно разменять купюру достоинством 1000 единиц? найти количество всех простых чисел в диапазоне от 2 до 100 000.

👇
Ответ:
madi101
madi101
18.10.2020
"Найти количество всех простых чисел в диапазоне от 2 до 100 000", - решение через Решето Эратосфена.
#include <iostream>
#include <vector>
using namespace std; 
 
int main()
{
    unsigned a = 0, b = 0;
    cin >> a >> b;
    vector<char> v(b + 1, '1');
     for (unsigned i = 3; i < v.size(); i += 2) {
        for (unsigned j = i + i; j < v.size(); j += i) {
            vec[j] = '0';
        }
    }
 
    if (a == 2) {
        cout << 2 << " ";
    }
   
    a += !(a&1);

    for (unsigned i = a; i < v.size(); i+=2){
        if (vec[i] == '1') {
            cout << i << " ";
        }
    }
    return 0;
}
4,7(25 оценок)
Открыть все ответы
Ответ:
raku13
raku13
18.10.2020
1. Создаем файл MatInt.pas следующего содержания:

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
unit MatInt;

interface

type
  Matrix=array[,] of integer;

function MatCreate(m,n:integer):Matrix;
procedure MatPrint(a:Matrix;w:integer);
procedure MatMax(a:Matrix;var x,imax,jmax:integer);

implementation

function MatCreate(m,n:integer):Matrix;
// создает матрицу и инициализирует её нулями
begin
  SetLength(Result,m,n);
end;

procedure MatPrint(a:Matrix;w:integer);
// выводит матрицу, отводя w позиций под элемент
begin
  var n:=Length(a,1)-1;
  for var i:=0 to Length(a,0)-1 do begin
    for var j:=0 to n do Write(a[i,j]:w);
    Writeln
    end
end;

procedure MatMax(a:Matrix;var x,imax,jmax:integer);
// возвращает значение максимального элемента и его координаты
begin
  imax:=0; jmax:=0;
  var n:=Length(a,1)-1;
  for var i:=0 to Length(a,0)-1 do
    for var j:=0 to n do
      if a[i,j]>a[imax,jmax] then (imax,jmax):=(i,j);
  Inc(imax); Inc(jmax); x:=a[imax-1,jmax-1]
end;

end.

2. Компилируем файл, получая библиотеку MatInt.pcu

3. Пишем основную программу:

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
uses
  MatInt;
begin
  var a:=MatCreate(5,8);
  var n:=Length(a,1)-1;
  for var i:=0 to Length(a,0)-1 do
  for var j:=0 to n do a[i,j]:=Random(-50,50);
  MatPrint(a,4);
  var irow,jcol,max:integer;
  MatMax(a,max,irow,jcol);
  Writeln('Максимальный А[',irow,',',jcol,']=',max)
end.

Тестовое решение
  11 -16  11  16  23  -4 -17 -34
 -12  -5  20   9  16  47  43  17
 -46 -26  47 -40  12 -31 -25  13
  -7  39 -20  26  11 -19  32 -15
  45 -10 -28  31 -46 -29 -29 -22
Максимальный А[2,6]=47
4,6(48 оценок)
Ответ:
Tanya11011
Tanya11011
18.10.2020
*** 1 ***
1. Определяем объем файла, необходимого для звучания в течении 1 сек.
Kсек=7500 / 10 = 750 (Кбайт)
2. Поскольку файл стереофонический, то он использует два звуковых канала, поэтому объем k1 следует уменьшить вдвое, получая объем, занимаемый одним каналом. k=Kсек / 2 = 750 / 2 = 375 (Кбайт) или 375 х 1024 = 384000 (байт)
2. Глубина звука 32 бита - это 32 / 8 = 4 байта. m=4.
3. Количество отсчетов на канал в секунду составит k / m = 384000 / 4 = 96000. Это соответствует частоте дискретизации 96 000 Гц или 96 Кгц.

*** 2 ***
Всего имеется 30х30=900 точек, которые занимают 1012.5 байт. Тогда одна точка занимает 1012.5 / 900 = 1.125 (байта) или 1.125 х 8 = 9 (бит).
В девяти битах можно разместить палитру, количество цветов в которой составляет два в девятой степени (считая, что черный - это тоже цвет).
2^9=512 - используется 512 цветов.

1) объем звукового стереоаудиофайла – 7500 кбайт, глубина звука – 32 бит, длительность звучания этог
4,6(31 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ