Uses crt;
type mas=array[1..1000] of integer;
var a:mas;
n,i:integer;
procedure gnomesort(var arr:mas; size : Integer);
var i, j, t : Integer;
begin
i := 2;
j := 3;
while i <= size do
begin
if arr[i-1] <= arr[i] then
begin
i := j;
j := j + 1
end
else
begin
t := arr[i-1];
arr[i-1] := arr[i];
arr[i] := t;
i := i - 1;
if i = 1 then
begin
i := j;
j := j + 1
end
end
end;
end;
begin
write('Размер массива n=');
read(n);
writeln('Исходный массив:');
for i:=1 to n do
read(a[i]);
writeln;
gnomesort(a,n);
writeln('Результат сортировки:');
for i:=1 to n do
write(a[i],' ');
end.
17+1=18
18+1=19
19+1=20
20+1=21
21+1=22
22*2=44
44+1=45
45*2=90
90+1=91
91*2=182
182*2=364
364*2=728
728+1=729
#include <stdio.h>
int main () {
double q, t;
int i, n;
printf ("Q, T, N? "); scanf ("%lf %lf %d", &q, &t, &n);
i = 1;
while (i <= n) {
q -= t;
printf ("N = %d, Q = %lf\n", i, q);
i++;
}
return 0;
<span>}</span>
27 машин, 2^5=32
5 бит на кодировку одной машины
16*5=80 бит = 10 байт