Поскольку код семибитный, то 1 символ занимает 7 бит, отсюда:
2000 символов*7 бит=14000 бит/8 (в 1 байте 8 бит) = 1750 байт
<u>Ответ: 1750 байт</u>
Вроде здесь уже решал такое :)
//Pascal
var
n, a, b, c: integer;
begin
n := 1;
repeat
repeat
writeln(' Ведите стороны A,B,C ', n, ' - треугольника');
readln(a, b, c);
until ((a > 0) and (b > 0) and (c >0)) and ((a + b) >= c);
writeln('Периметр равен ',a + b + c);
n := n + 1;
until n > 25;
end.