Uses crt;
var a,b,n,i:integer;
mas:array[1..100] of integer;
begin
textcolor(white);
writeln('Введите a,b,n:');
read(a,b,n);
writeln('Введите элементы массива:');
for i:=1 to n do
read(mas[i]);
for i:=1 to n do
begin
if (mas[i]>a) and (mas[i]<b) then
textcolor(yellow)
else
textcolor(white);
write(mas[i],' ');
end;
textcolor(white);
<span>end.</span>
Program n1;
const n=30;
var a: array[1..n] of integer;
i,k,sum: integer;
sr: real;
begin
randomize;
sum:=0;
k:=0;
for i:=1 to n do
begin
a[i]:=random(101);
write(a[i],' ');
sum:=sum+a[i];
end;
sr:=sum/n;
writeln;
for i:=1 to n do if a[i]>sr then k:=k+1;
writeln(k);
end.
Решение:
У нас есть 600Кб информации.
Посмотрим сколько это бит
600(килобайт)*1024(байт в килобайте)*8(бит в байте) = 4915200 бит.
У нас каждая точка(пиксел) занимает 16 бит
Значит у нас: 4915200/16 = 307200 пикселей.
Посчиатем пикселы для разных разрешений (размеров растра)
640*480=307200
1024*768 = 786432
Значит ответ: размер растра у нас 640*480. (совпадают количества пикселей)
1) F и G зависят от 5-ти переменных, поэтому
в их таблицах истинности будет по 2^5=32 строки
2) в таблицах истинности в 5-ти строках FиG имеют одинаковые значения:
в 4-х строках: F=1 и G=1 -----> F∪G=1
в 1-й строке F=0 и G=0 ------> F∪G=0
в остальных строках разные значения
(F=0 и G=1) или (F=1 и G=0) ----> F∪G=1
3) 32-1=31 - общее количество строк, которые дают F∪G=1
ответ 31
Графической информации, текстовой информации