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

16-цветный рисунок содержит 500 байт информации. из скольких точек он состоит? решение

👇
Ответ:
16 цветов помещаются 4 битах, то есть в половине байта. значит в одном байте будет 2 точки. умножаем 500 на 2 получаем 1000 точек
4,4(20 оценок)
Открыть все ответы
Ответ:
DAYN777DEBIL
DAYN777DEBIL
20.09.2022
Program myach; 
uses crt,graphabc; 
var x:integer; 
begin 
x:=1; 
for x:=190 to 465 do 
begin 
clrscr; 
circle(150,150,15); 
line(150,165,150,250); 
line(150,250,130,270); 
line(150,250,170,270); 
line(150,180,180,175); 
line(150,180,180,180); 
circle(500,150,15); 
line(500,165,500,250); 
line(500,250,480,270); 
line(500,250,520,270); 
line(500,180,470,175); 
line(500,180,470,180); 
circle(x,170,10); 
Delay(5); 
end; 

for x:=465 downto 190 do 
begin 
clrscr; 
circle(150,150,15); 
line(150,165,150,250); 
line(150,250,130,270); 
line(150,250,170,270); 
line(150,180,180,175); 
line(150,180,180,180); 
circle(500,150,15); 
line(500,165,500,250); 
line(500,250,480,270); 
line(500,250,520,270); 
line(500,180,470,175); 
line(500,180,470,180); 
circle(x,170,10); 
Delay(5); 
end; 
end.
4,8(57 оценок)
Ответ:
Program Task;
Var a, b, c, d: Integer;
Function Max(a, b: Integer): Integer;
Begin
If a > b Then
Result := a
Else
Result := b;
End;
Function Min(a, b: Integer): Integer;
Begin
If a < b Then
Result := a
Else
Result := b;
End;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('c = ');
ReadLn(c);
Write('d = ');
ReadLn(d);
WriteLn('max(a, b) + min(a, b) + min(c,d) = ', Max(a, b) + Min(a, b) + Min(c,d));
WriteLn('max(a, b, c, d) + min(a, b, c) = ', Max(Max(a, b), Max(c, d)) + Min(Max(a, b), c));
ReadLn;
End.
4,8(17 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ