program raf105;
var
a,b:array[1..5] of integer;
c:array[1..10] of integer;
i:integer;
begin
writeln('Заполните первый массив:');
for i:=1 to 5 do
readln(a[i]);
writeln('Заполните второй массив:');
for i:=1 to 5 do
readln(b[i]);
i:=0;
write('Третий массив: ');
while i < 10 do
begin
i:= i+2;
c[i-1]:= a[i div 2];
c[i]:= b[i div 2];
write(c[i-1],' ',c[i],' ');
end;
end.
<h3><u>PascalABC 3.4.2</u></h3>
Из нижней строки 2А=4
A=2
Из той же строки
5+В=9
B=4
Теперь в первой строке
43-12=31
E=3
K=1
240 Кбайт = 240*1024 байт = 240*1024*8 бит
Количество пикселей в изображении = 600*400
Память для одного пикселя = 240*1024*8 / (600*400) бит ≈ 8 бит
Количество цветов в палитре N=2^i = 2^8 = 256