var a:array [1..10] of integer;
b,i:integer;
z:real;
begin
randomize;
for i:=1 to 10 do
begin
z:=random;
b:=random(10);
if z>0.5 then a[i]:=b
else a[i]:=-b;
end;
for i:=1 to 10 do
write(' ',a[i]);
end.
если что то не понятно,спрашивай)
Думаю тут имеется в виду 16 цветов. Для кодирования 16цветного изображения требуется
4 бита на 1 пиксел изображения. 2 в 4 степени=16. Объем необходимой видео памяти =640*480*4= 1 228 800 байт т.е примерно 1,23 Мегабайта следовательно памяти недостаточно.
На стандартной панели инструментов
1) 15 (A-B-F-Z)
2) 17 (A-B-D-E-F-Z или A-B-D-E-G-Z)
3) 15 (A-B-F-Z)
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
if n.Between(2,10) then begin
var i:=1;
repeat
Write(n,'x',i,'=',n*i,' ');
i+=1
until i>10;
Writeln
end
else Writeln('Число должно быть от 2 до 10')
end.
<u>Пример</u>
n= 6
6x1=6 6x2=12 6x3=18 6x4=24 6x5=30 6x6=36 6x7=42 6x8=48 6x9=54 6x10=60