1)(800*8)/(20*40)=8бит . 2^8=512 цветов
2)Хз . Давно это было . Я бы написал паинт и фотошоп .
3)10*41000*8=3280000 бит = 410000 байт = 400 кбайт (Вообще еще должно быть указанно какой звук - моно , стерео .... )
4)О_о
Var
a,a1,a2:integer;
Begin a:=10;
Write('Двузначные числа, сумма цифр которого равна 12: ');
while a<100 do
begin
a1:=a mod 10;
a2:=a div 10;
if (a1+a2)=12 then write(a,', ');
a:=a+1;
end;
<span>End.
</span>
<span>задумайте число прибавьте к этому числу 6 прибавьте к этому числу 4 умножьте случившееся на 2 отнимите 4 прибавьте 6 отнимите 2 разделите на 2 отнимите задуманное число отнимите 5</span>
Const m = 3;
n = 3;
var a: array[1..m, 1..n] of integer;
i,j,max3:integer;
begin
max3:=-MaxInt;
for i:=1 to m do begin
for j:=1 to n do begin
write('A[',i,',',j,']= ');
readln (a[i,j]);
if (a[i,j] mod 3 = 0)and (max3<a[i,j]) then
max3:=a[i,j];
end;
end;
writeln('Максимальное кратное трем ',max3);
end.
Тестовое решение:
A[1,1]= -15
A[1,2]= 9
A[1,3]= 3
A[2,1]= 7
A[2,2]= -21
A[2,3]= 21
A[3,1]= 15
A[3,2]= -9
A[3,3]= 9
Максимальное кратное трем 21
Var a,b,c:longint;
Begin
read(a,b,c);
if c mod 2=1 then
writeln('Нечетное') else
writeln('Четное');
if ((c>=a) and (c<=b)) then
writeln('YES') else
writeln('NO');
<span>End.</span>