1)
uses crt;
var i:integer;
A:array[0..15] of integer;
begin
For i:= 0 to 15 do
A[i]:= i+1;
For i:= 0 to 14 do
A[i]:= A[i+1];
For i:=0 to 15 do
write(A[i],' ');
end.
2) Перемещает первый элемент массива в конец.
1- 10тичная
2-16тиричная
3-двоичная
Var x,y:integer;
v:longint;
i:real;
x:=320;
y:=400;
v = 128000;
i:= v/(x*y);
writeln('Глубина цвета: ', i);
1 кбайт=8000 бит, сл. вес сообщения=1928000 бит
1928000\128000=15.0625 сек
.ods это электронная таблица (open document spreadsheet)
создаётся через OpenOffice