logo
Вход Регистрация Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
slavik116
slavik116
22.02.2020 10:50 •  Информатика

найди информационный объем в битах растрового изображения размером 49*49 пикселя, если известно что используется палитра из 256 цветов.

👇
Увидеть ответ
Ответ:
Venjin
Venjin
22.02.2020

12544 біт

Объяснение:

4,5(13 оценок)
Открыть все ответы
Ответ:
timkoa
timkoa
22.02.2020
While:

Program TaskA;
Var i: Integer;
Begini := 1;
While i < 1024 Do
Begin
i := i * 2;
Write(i, ' ');
End;
End.

Program TaskB;
Var i, a: Integer;
Begin
i := 1;
While i < 21 Do
Begin
a := a + i;
i := i + 1;
Write(a, ' ');
End;
End.

Program TaskC;
Var i, sum: Integer;
Begin
While sum < 100 Do
Begini := i + 1;
sum := sum + i;
Write(i, ' ');
End;
End.

Random:

Program TaskA;
Begin
Randomize;
WriteLn(Random);
End.

Program TaskB;
Begin
Randomize;
WriteLn(Random(10) + 1);
End.

Program TaskC;
Begin
Randomize;
WriteLn(Random(20 + 1) - 10);
End.

Program TaskD;
Begin
Randomize;
WriteLn(Random(51) * 2);
End.

Program TaskE;
Begin
Randomize;
WriteLn(Random(50) * 2 + 1);
End.
4,5(31 оценок)
Ответ:
Ulysses228
Ulysses228
22.02.2020
Program TaskC;
Var i, il: Integer;
Begin
For i := 1 To 21 Do
If i Mod 2 = 1 Then
Write(i, ' ');
i := i + 1;
End;
ReadLn;
End.

Program TaskD;
Var i: Integer;
Begin
For i := 1 To 11 Do
Write(i * 2, ' ');
End;
ReadLn;
End.

Program TaskE;
Var i: Integer;
Begin
For i := 10 DownTo 1 Do
Write(i, ' ');
ReadLn;
End.

Program TaskF;
Var i: Integer;
Begin
For i := 10 DownTo 1 Do
Begin
Write(i * 10, ' ');
End;
ReadLn;
End.

Program TaskG;
Var i, sum: Integer;
Begin
For i := 1 To 10 Do
sum := sum + i;
WriteLn(sum);
ReadLn;
End.

Program TaskH;
Var i, product: Integer;
Begin
product := 1;
For i := 1 To 5 Do
product := product * i;
WriteLn(product);
ReadLn;
End.

Program TaskI;
Var i, sum: Integer;
Begin
For i := -5 To 5 Do
sum := sum + Abs(i);
WriteLn(sum);
ReadLn;
End.

Program TaskJ;
Var c: Char;
Begin
For c := 'A' To 'Z' Do
Write(c, ' ');
ReadLn;
End.
4,6(32 оценок)
Это интересно:
Д
Дом-и-сад
16.05.2021
Как избавиться от пятен после постельных клопов...
К
О преобразовании файлов ODT в DOC и почему это важно...
М
Мир-работы
29.12.2021
Как успешно пройти тестирование при приеме на работу...
03.04.2021
Как вернуть бывшего парня (для девушек-подростков)...
К
Как законсервировать томатный соус...
С
Как показать почтение умершему знакомому...
К
Как закрывать приложения на iPhone, iPad и iPod Touch: инструкция для начинающих...
К
Как изменить одежду сима в The Sims 2: простые шаги...
12.09.2020
Как остановить человека, который задирает вас...
И
Как играть на тромбоне: советы и рекомендации для начинающих...
Новые ответы от MOGZ: Информатика
anton2015b
anton2015b
02.09.2020
Какая характеристика определяет количество битов, выделяемых для записи каждого результата измерений исходного звукового сигнала...
LISAIZKOSHMAROV
LISAIZKOSHMAROV
30.06.2022
Ip адрес 115628382 расставьте точки...
Natutp113
Natutp113
22.01.2023
изучив физическую карту мира выберите верные утверждения характезирищующие положение материка Австралия...
Slidopit
Slidopit
22.01.2023
Как называется совокупность всех программ на компьютере ?...
112811281128
112811281128
06.05.2021
Каждый пользователь некой компьютерной системы получает уникальный идентификатор,представляющий собой k-символьную цепочку в четырехбуквенном алфавите.Укажите наименьшее...
KIRAERM
KIRAERM
02.06.2023
Перевести числа из 2-ичной сс в 10-ичную сс 101010...
gulnazira2005
gulnazira2005
19.06.2021
Перевести числа из 10-ичной сс в 2–ичную сс. 56; 65...
Nikbooc
Nikbooc
22.09.2020
Представить числа в виде суммы степеней числа 10 56985; 458,365...
Nikolayal
Nikolayal
29.10.2020
Что такое сатирический роман-хроника?...
АляМиткалова
Task 2 Put each verb into the Past Simple or Past Continuous 1.1 my arm when I in the Alps. (break), (ski) 2.Our friend s dog US as we around the neighborhood to follow,...

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
О НАС
ПОМОЩЬ
App
.
.
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ