65536 цветов = 2^16
глубина цвета 16 бит
Объём изображения
1024*768*16 = 12582912 бит
12582912 бит / 8 = 1572864 байт / 1024 =1536 Кбайт / 1024 = 1,5 Мб
Изображение на мониторе займёт в видеопамяти 1,5 Мб
Потому что из содержимое может автоматически меняться, поскольку в некоторых ячейках могут быть записаны не числа, а формулы по которым вычисляются значения. Поэтому при изменении какого-то значения в одной ячейке такая таблица может быть пересчитана автоматически.
Var
a:array [1..12] of integer;
i,s:integer;
begin
writeln('vvedite 12 chisel');
for i:=1 to 12 do
readln(a[i]);
writeln('massiv');
for i:=1 to 12 do
write(a[i],' ');
writeln();
for i:=1 to 12 do
if abs(a[i])>15 then s:=s+1;
writeln('kolichestvo elementov = ',s)
end.
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var names:array[1..2,1..5] of string:=
(('Саша','Женя','Таня','Лена','Вася'),
('Александр','Евгений','Татьяна','Елена','Василий'));
var name:=ReadlnString('Введите краткое имя:');
var p:=0;
for var i:=1 to 5 do
if name=names[1,i] then begin p:=i; break end;
if p>0 then Writeln(names[2,p])
else Writeln('Я вас не знаю!')
end.
<u><em>Тестовое решение</em></u>
Введите краткое имя: Лена
Елена
Sqr((4+A)*10)=4900 -выводится такой вот ответ