Program n1;
var a,b,i: integer;
sum,k: real;
begin
sum:=0;
k:=0;
readln(a,b);
for i:=a to b do
begin
sum:=sum+i*i;
k:=k+1;
end;
writeln(sum/k:6:2);
end.
Ну посчитай, 480 пикселей на 248.
119040
<span><span>лубина </span><em>цвета</em><span> – это количество бит на пиксель (обычно от 1 до 24 бит на пиксель</span></span>
Делишь число на основание системы счисления в которую переводишь т.е. на 16, до тех пор,пока не получится частное меньше, чем делитель.
Остатки которые получились переводишь в соответствие с алфавитом новой системы счисления.Записывать с последнего остатка.
999 = 3е7
10985 = 2ае9
program ArrayPrintBack;
var
a: array[1..8] of integer;
i: integer;
begin
Randomize;
for i := 1 to 8 do
begin
a[i] := 5 + Random(49);
Write(a[i]:3)
end;
Writeln;
for i := 8 downto 1 do
Write(a[i]:3)
end.