begin
var a := ArrRandom(10, 1, 10); a.Println;
for var i := 0 to a.High do
if i.isOdd then a[i] *= 2
else a[i] *= 3;
a.Println;
end.
<span>Разрешения глубина
|4| |8| |16| |24|
_________________________________________
640х480 |150| |300| |600| |901.4|
800х600 |234.4| |468.8| |937.5| |1406.3|
1024х768 |384| |768| |1536| |2304|
1280х1024 </span> |640| |1280| |2560| |3840|
Я искал размер изображения, в Кбайтах. А то не написано, что надо вписать в таблицу
7. Европейские реки кроме Нила
8. Марки автомобилей кроме Руслана
9. Камни кроме торфа
10. Средний род кроме кофе
Потому что ее употребляют в различных коммуникациях.
Program asd;
var a,b:integer;
begin
a:=10;
writeln('1=10');
for b=2 to 10 do
begin
writeln(b,'=',a+((a/100)*10);
a:=a+((a/100)*10);
end;
end.