В кодировке КОИ-8 для записи одного символа используется 8 бит = 1 байт. Объем учебника = 512*1*128*64*1 байт = 512*128*64/1024 Кбайт = 64*64/1024 Мбайт = 4 Мбайт
Var a,b,c:integer; x:char;
begin
repeat
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
if (a+b>c)and(a+c>b)and(b+c>a)
then writeln('Стороны могут образовать треугольник')
else writeln('Стороны не могут образовать треугольник');
writeln('Желаете повторить? (Y/N)');
readln(x);
until x='N';
end.
Пример:
<span>a = 3
b = 5
c = 4
Стороны могут образовать треугольник
Желаете повторить? (Y/N)
Y
a = 8
b = 1
c = 5
Стороны не могут образовать треугольник
Желаете повторить? (Y/N)
<span>N</span>
</span>
67108864 байт.
Это если слева 1/16 Гбайт, т.е. 0,0625 Гбайт.