A:1,2,3,4,5;B:-1,-2,-3,-4,-5;C:1,2,3,4,5.
program d;
var a, b, c: integer;
begin
for c:= 1 to 5 do
begin
a:= a + 1;
b:= b - 1;
writeln (a:3,' ',b:3,' ',c:3);
end;
end.
1) 2^15<65000<2^16 ----> 16 бит для одного цвета
2) 16 : 8 =2 уменьшение в два раза (ответ 4)
Var a:real;
begin
writeln('Введите расстояние в километрах');
readln(a);
a:=a*1000/1066.8;
writeln(a);
<span>end.</span>
бірінші жолда 10, 16; төртінші жолда 18,4,0; бесінші жолда 11,4,6, (әрі қарай білмеймін)