Стораж обходит прямоугольный участок за 0.5 часа его скорость 5км/час длинна одной из старон участка известна-вводится с клавиатуры. вычеслить площадь участка

За 0,5 часа сторож проходит 2,5 км - это периметр участка P
P=2*(a+b)=2.5, значит b=(2.5-2*a)/2
Составим программу:
program rt45;
var a,b,s,p:real;
begin
 readln(a);
 b:=(2.5-2*a)/2;
 s:=a*b;
 write('Площадь=',s:6:2);
end.

Program SomeProgram;var a : array[0..3] of Integer = (1,7,-7,-14);    i : integer;    count : integer = 0;begin
    // с возможно вам нужно с обычного for    for i in a do begin        if ((i div 7) < 0 ) then begin            count := count + 1;        end;    end;    writeln('(for) количество подходящих чисел: ', count);        // с количество подходящих чисел: ', count);        // с тут главное правльно поставить условие после until    i := 0;    count := 0;    repeat        if ((a[i] div 7) < 0) then        begin            count := count + 1;        end;        i := i + 1;    until i = length(a);    writeln('(repeat until) количество подходящих чисел: ', count);    end.

Для записи личного кода могут использоваться 22+9=31 символ.
Для кодирования 31го символа достаточно диапазона чисел от 0 до 30.
Для записи числа 30 требуется двоичный логарифм от 30 = 5 бит (округляем в большую сторону).
Итого на личный код требуется 14*5 = 70 бит
70/8 = 9 байт (округляем в большую сторону).
Двоичный логарифм 60 = 6 бит  (округляем в большую сторону), которые умещаются в 1 байт.
Итого на личный код и номер подразделения требуется 9+1=10 байт.
Следовательно, для дополнительных сведений остается 20-10=10 байт.