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

Сколько бит памяти занимает чёрно-белое изображение (без градаций серого) шириной 90 точек и высотой 200 точек?

👇
Ответ:
RyashenkoNastya
RyashenkoNastya
16.01.2020
N=2^i
2=2^1 => i=1 бит на пикс.

k=90*200=18000 пикс.
I=k*i=18000*1=18000 бит

ответ: 18000 бит
4,8(77 оценок)
Открыть все ответы
Ответ:
August333
August333
16.01.2020
Возможно, не самое эффективное решение
#include <iostream>
#include <cstdlib>
#include <ctime>
int main()
{
    using namespace std;
    const int N = 10;
    int A[N];
    srand(time(0));
    for (int i = 0; i < N; ++i)
        A[i] = rand() % 201 - 100;
   
    //Вывод исходного массива на экран
    for (int i = 0; i < N; ++i)
        cout << A[i] << "  ";
    cout << endl;

    //Подсчитаем количества положительных и отрицательных
    int kpos = 0, kneg = 0;
    for (int i = 0; i < N; i++)
        if (A[i] > 0)
            ++kpos;
        else
            ++kneg;

    int * Apos = new int[kpos];
    int * Aneg = new int[kneg];
    int pos = 0, neg = 0;
    for (int i = 0; i < N; ++i)
        if (A[i] > 0)
            Apos[pos++] = A[i];
        else
            Aneg[neg++] = A[i];

    for (int i = 0; i < N; ++i)
        if (i < kpos)
            A[i] = Apos[i];
        else
            A[i] = Aneg[i - kpos];

    delete[] Apos;
    delete[] Aneg;

    //Вывод полученного массива на экран
    for (int i = 0; i < N; ++i)
        cout << A[i] << "  ";
    cout << endl;
    return 0;
}
4,6(81 оценок)
Ответ:
00012333334
00012333334
16.01.2020
PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var n := Abs(ReadInteger('Введите целое число:'));

 var yes := False;

 var n1 := n mod 10;

 n := n div 10;

 while n > 0 do

 begin

   var n2 := n mod 10;

   if n1 = n2 then

   begin

     yes := True;

     break

   end;

   n := n div 10;

   n1 := n2

 end;

 if yes then Print('Верно')

 else Print('Неверно')

end.


А еще это можно решить, к примеру, так:

begin

 var s := Abs(ReadInteger('Введите целое число:')).ToString;

 if s.Pairwise.Any(t->t[0]=t[1]) then Print('Верно')

 else Print('Неверно')

end.

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