Ответ: 1200000 Байт
Объяснение:
N=2^I
Модель RGB хранит в себе три цвета которые могут принимать значения от [0..255]
В итоге имеем палитру: 256*256*256=16777216 цветов
16777216=2^24
V=M*N*I
V= 1000*400*24=9600000 Бит
9600000 Бит = 1200000 байт
Сканер - С =200
Принтер - П =250
Монитор - М =450
П | С=450
П & М=40
С & М=50
П | С | М-?
Исходная формула:
<em>П | С | М = П + С + М - (П & М) - (П & С) - (С&M) + (П & С & М)</em>
П&C и П&C&M у нас нет.
Посмотрим на П, С, П|C
П+С=П|C, П и С не пересекаются, поскольку их сумма равна их объединению П&С=0, это значит что П&C&M тоже равно 0
Подставим все в формулу:
П | С | М= 250 + 200 + 450 - 40 - 0 - 50 + 0=810
<u>Ответ: 810</u>
Var k,sum:integer;
begin
sum:=0;
for k:=50 to 100 do
if((k mod 2 = 0) and (k mod 3 =0)) then sum:=sum+k;
writeln(sum);
end.
<h3>// PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3>
begin
if ReadInteger('Введите x:').IsOdd then Print('Это нечетное число')
else Print('Это четное число')
end.
Var x,y,z,Ans:integer;
u:real;
Begin
Write('Введите числа x,y,z: ');
Readln(x,y,z);
Writeln('Что вычислить из числа ',x,' ?');
Writeln('1 - sin; 2 - cos; 3 - tg;');
Readln(Ans);
case Ans of
1: begin u:=sin(x); Writeln('sin(',x,') = ',u) end;
2: begin u:=cos(x); Writeln('cos(',x,') = ',u) end;
3: begin u:=tan(x); Writeln('tg(',x,') = ',u) end;
else Writeln('Ошибка!') end;
Writeln('Найти максимальное число из ряда ',u,', ',y,', ',z);
Writeln('Без модуля - 1; по модулю - 2');
Readln(Ans);
case Ans of
1: begin
if (u>y) and (u>z) then
Writeln('Максимальное число - ',u)
else
if (y>u) and (y>z) then Writeln('Максимальное число - ',y)
else
if (z>u) and (z>y) then Writeln('Максимальное число - ',z)
else
Writeln('Все числа равны.')
end;
2: begin
if (abs(u)>abs(y)) and (abs(u)>abs(z)) then
Writeln('Максимальное число - ',u)
else
if (abs(y)>abs(u)) and (abs(y)>abs(z)) then
Writeln('Максимальное число - ',y)
else
if (abs(z)>abs(u)) and (abs(z)>abs(y)) then
Writeln('Максимальное число - ',z)
else Writeln('Все числа равны.')
end
end
End.
*.pas прикрепил во вложения