Var
a,b,c,d,e,y:integer;
begin
write('Введите длины всех сторон пятиугольника, см : ');
readln(a,b,c,d,e);
y:=a+b+c+d+e;
writeln('Периметр данного пятиугольника, см = ',y);
readln;
<span>end.</span>
Лови
var
s:string;
a:integer;
begin
write('Введите натуральное число - ');
readln(s);
a:=length(s);
writeln('В числе ',a,' цифр.');
<span>end.</span>
uses
SysUtils;
var
elki, elkiOverSize: array[1..50] of Integer;
i,j: Integer;
begin
randomize();
j:=0;
for i := 1 to 50 do
begin
elki[i] := random(170-45+1)+45;
if elki[i] = 160 then
begin
elkiOverSize[j] := i;
inc(j);
end;
end;
write('Оригинальный массив: ');
for i := 1 to 50 do
begin
write(IntToStr(elki[i])+' ');
end;
writeln();
writeln();
write('Индексы ёлок равных 160: ');
for i := 1 to 50 do
begin
if elkiOverSize[i] <> 0 then
write(IntToStr(elkiOverSize[i])+' ');
end;
writeln();
end.
Мне кажется, что не правильно. Немного не тот порядок. Вы все правильно написали, что один символ будет равен 5 бит. Далее узнаем сколько весит длина одного маркера: 5*9= 45 бит. Сейчас нужно перевести у узнать сколько нужно байт для одного изделия: 45/8=6 байт(округляем в большую сторону). А теперь уже узнаем общий объем памяти: 6*120=720 байт.
Ответ: 720 байт