5.Створіть власний іб кодування даних. Презентуйте його в класі. Поясніть, кому такий іб кодування може бути корисним.

№1

var sum, i: integer;
begin
sum := 0;
for i := 1 to 100 do
sum := sum + i;
writeln('Сумма всех чисел от 1 до 100: ', sum);
end.

№2

var p, i: integer;
begin
p := 1;
for i := 1 to 10 do p := p * i;
writeln('Произведение всех чисел от 1 до 10: ', p);
end.

№3

У вас не дано никаких условий. Вот задача для условия: "Членов прогрессии - 100, шаг - 3"

var A, i, k, max: integer;
begin
i := 3;
max := 100;
for k := 1 to max do begin
A := A + i;write( A, ' ');
end;
end.

№4

var sum, x: real;
a: array[1..10] of real;
i: integer;
begin
sum := 0;
for i := 1 to 10 do begin
write('Введите ', i, ' число: ');
readln(a[i]);
sum := sum + a[i];
end;

writeln('Сумма введенных чисел: ', sum);
end.

Сортировка методом пузырька (по возрастанию)

procedure MassivSort(var arr : array of Real; const N : Integer);var    I:   Integer;    J:   Integer;    K:   Integer;    M:   Real;begin    for i:=1 to N do    begin        m:=Arr[i-1];        k:=i;        for j:=i to n do        begin            if m>Arr[j-1] then            begin                m:=Arr[j-1];                k:=j;            end;        end;        Arr[k-1]:=Arr[i-1];        Arr[i-1]:=m;    end;end;

Сортировка по убыванию:

procedure sort;
var i , j , tmp : integer;
begin    
for i := 1 to n - 1 do        
for j := i + 1 to n do            
if a[i] < a[j] then begin                
tmp := a[i];                
a[i] := a[j];                
a[j] := tmp;            
end;