Help, много 1. сколько байтов в памяти занимает рису- нок размером 24×24 пикселя, закодированный с палит рой 16 цветов? 2. сколько кбайт в памяти занимает рисунок размером 512×256 пикселей, закодированный с палитрой 64 цвета? 3. рисунок размером 16×16 пикселей занимает в памяти 224 байта. определите наибольшее воз- можное количество цветов в этом рисунке. 4. рисунок размером 128×200 пикселей занима- ет в памяти 25 кбайт. определите наибольшее воз- можное количество цветов в этом рисунке. 5. рисунок, в котором используется 64 различ- ных цвета, занимает в памяти 600 байтов. опреде- лите количество пикселей в этом рисунке. 6. рисунок, в котором используется четыре различных цвета, занимает в памяти 5 кбайт. определите количество пикселей в этом ри- сунке. 7. рисунок, в котором используется 16 различ- ных цветов, занимает в памяти 875 байтов. опреде- лите ширину этого рисунка, если его высота равна 35 пикселей. 8. рисунок, в котором используется восемь раз- личных цветов, занимает в памяти 12 кбайт. опре- делите ширину этого рисунка, если его высота рав- на 128 пикселей. 9. *рисунок, в котором используется 32 различ- ных цвета, занимает в памяти 320 байтов. опреде- лите размеры этого рисунка, если его высота в два раза больше ширины. 10. *рисунок, в котором используется восемь различных цветов, занимает в памяти 18 кбайт. определите размеры этого рисунка, если его высо- та в три раза больше ширины.
Ответы
В объяснении
Объяснение:
program zadacha;
const n= 6, m=6;
var a:array[1..n, 1..m] of integer;
i, j, s, k: integer;
begin
RANDOMIZE;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:= random (100)-50;
write(a[i,j]:5);
end;
writeln;
end;
s:=0;
k:=0;
for i:=1 to n do
for j:=1 to m do
if i>j then
begin
k:=k+1;
s:=s+a[i,j];
end;
writeln('Сумма=',s);
writeln('Количество=',k);
readln;
end.
type
Товар = class
public
Наименование: string;
Стоимость: real;
СрокГодности: integer;
Производитель: string;
constructor (Наим: string; Стоим: real; Срок: integer; Произв: string);
begin
Наименование := Наим;
Стоимость := Стоим;
СрокГодности := Срок;
Производитель := Произв;
end;
function ToString: string; override;
begin
Result := $'{Наименование}, {Стоимость}, {СрокГодности}, {Производитель}'
end;
end;
begin
var t1 := new Товар('Конфетка',250.6,24,'Артелька');
var t2 := new Товар;
t2.Наименование := 'Печенька';
t2.Стоимость := 79;
t2.СрокГодности := 36;
Println(t1);
Println(t2)
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Перевести 75 из десятичной в восьмиричную систему и наоборот
Валфавите 64 символа. определи количество информации, которое несет одна буква этого алфавита.
Для чего нужно определять объемы информации
Подскажите , ребусы, загадки по информатике для 7 кл.
256 цветов = 8 бит на точку (1 байт)
15360*1=15360 байт, или 15.36 кБайт.