Var f,f1:text;
s:string;
begin
assign(f,'f.txt');
reset(f);
assign(f1,'f1.txt');
rewrite(f1);
while not eof(f) do
begin
readln(f,s);
{есть функция:
function TrimRight(s: string): string;
Возвращает строку с удаленными конечными пробелами
Можно и так, как написано ниже}
while s[length(s)]=' ' do delete(s,length(s),1);
writeln(f1,s);
end;
close(f);
close(f1);
end.
Из рисунка следует, что для N-1 пары отверстий, считая сверху, потребуется пройти двойное количество расстояний a и b, т.е. 2(N-1)(a+b). Еще одно расстояние a надо пройти между нижней парой отверстий и еще с каждой стороны остается свободный конец длины l. Тогда общая длина шнурка составит 2(N-1)(a+b)+a+2l
<em><u>Ниже приведена программа на языке Паскаль (версия TP 7.01).</u></em>
uses Crt;
var
a,b,l,N:integer;
begin
ClrScr;
Write('Vvedite a,b,l,N: ');
Read(a,b,l,N);
Writeln('Dlina=',2*(N-1)*(a+b)+a+2*l);
ReadKey
end.
<em><u>Тестовое решение:</u></em>
Vvedite a,b,l,N: 40 20 120 6
Dlina=880
1 байт = 8 бит
теперь считай)
Насколько я знаю , то можно создать в Вк такого бота , мне так говорили , там есть какое - то спец. приложение что ли
Мощность алфавита:
2^x=4
x = 2
2 бита.
Всего символов: 2*20*60 = 2400
Информационный размер: 2400*2 = 4800 бит