Дано три числа-стороны треугольника. Проверить будет ли треугольник равнобедренным. (Если две стороны равны,то треугольник равнобедренный)
PROGRAM B04;
CONST
max = 1000;
VAR
index:word;
q:boolean;
sum, frac:real;
BEGIN
q:=true;
sum:=1;
index:=2;
while (index<=max) and q do begin
sum:=sum+index;
frac:=index*(index+1)/2;
if (sum<>frac) then begin
q:=false;
writeln(sum,' <> ',frac);
end;
index:=index+1;
end;
if q then
writeln('Равенство доказано для первых ', max, ' чисел')
else
writeln('При n = ',index, ' равенство неверно');
END.
N=2^i
N=16=2⁴=> i=4 бита инф.объем 1 символа.
1/256Мбайта=1/256*1024 Кбайт=4Кбайта=4*1024байт=4096байт=8*4096 бит
n=8*4096бит:4бита=2*4096=8192символа
Ответ: 8192 символа