Судя по таблице, ось R - это первый разряд, ось G - это второй разряд и ось B - соответственно третий.
2 - 101, пурпурный
3 - 000, черный
5 - 011, голубой
8 - 110, желтый
Содержание открытых папок на диске
Const n=10;
var a:array[1..n] of integer;
i,s1,s2:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:4);
end;
writeln;
s1:=0; s2:=0;
for i:=1 to n do
if i mod 2 = 1 then s1:=s1+a[i] else s2:=s2+a[i];
writeln('s1 = ',s1,' s2 = ',s2);
end.
Пример:
Массив A:
21 46 43 5 40 32 26 34 29 48
s1 = 159 s2 = 165
Подробнее - на Znanija.com -
znanija.com/task/22500151#readmore
Const n = 20;
var a: array[1..n] of real;
i: integer;
begin
for i := 1 to n do
read(a[i]);
for i := 1 to n do
if(i mod 3 <> 0) then write(a[i], ' ');
<span>end.
const n = 18;
var a: array[1..n] of integer;
i, max, fir: integer;
begin
max := 1;
fir := 0;
for i := 1 to n do
begin
read(a[i]);
if(fir = 0) and (a[i] > 0) then fir := i;
if(a [i] < 0) and (a[max] < a[i]) then max := i;
end;
i := a[max];
a[max] := a[fir];
a[fir] := i;
for i := 1 to n do
write(a[i], ' ');
<span>end.</span></span>
Program variant;
var
x,a,d:real;
i:integer;
begin
Write('введите x='); Read(x);
for i:=1 to 7 do begin
a:=0.14+0.22*(i-1);
d:=(0.15*x-a)/ln(a*a-x*x);
Writeln(a:4:2,d:16:9);
a:=a+0.22
end
end.
<u>Пример</u>
введите x=0.027
0.14 0.034243220
0.36 0.173723688
0.58 0.527608521
0.80 1.778950153
1.02 -26.114068556
1.24 -2.875984233
1.46 -1.924508518