Написать программу в паскале, которая проверяет проверяет по заданным трем сторонам треугольник на равносторонность

Program e4;       var a, b, с: real;   begin     writeln ('введите длины трех сторон треугольника ');     readln (a, b, с);     write ('треугольник со сторонами ', а, ь, с);     if (а + b > с) and (b + с > a) and (а + с > ь) then begin       writeln ('существует');       if (a = b) and (a = c) then      writeln ('равносторонний')       else       writeln ('неравносторонний');     else            writeln ('не существует'); end;     readln  end.

1. определим количество возможных символов в одном разряде номера. поскольку используется 22 буквы и 10 цифр, то в сумме получается 32 символа. 2. определим количество бит, необходимых для кодирования набора из 32 символов. если считать, что символы кодируются цифрами от 0 до 31, потребуется бит. 3. определим количество байт, которое займет один номер. в номере 7 символов, поэтому для его кодирования нужно 7х5=35 бит. в байте 8 бит, тогда для размещения 35 бит потребуется 35/8 ≈ 5 байт (округляем до целых всегда в большую сторону). 4. определим объем памяти, отводимый для записи 50 номеров. 50х5=250 байт. ответ: 250 байт. (вариант ответа 3)

Десятичных цифр, как все знают, 10 : )  (от 0 до 9) значит, на месте каждого из 7 знаков может стоять любой из 22+10=32 символов. тогда по формуле один символ займет логарифм по основанию 2 от 32 = 5 бит. (5 мест, на каждом из которых стоит один бит - 1 либо 0, этого хватит как раз на 2^5=32 символа)  тогда на номер 7*5 = 35 бит. один байт = 8 бит. 35/8 не делится нацело, надо подобрать минимальное, чтобы делилось (это 40). значит на 1 номер приходится 40/8=5 байт. ну а на 50 номеров 5*50=250 байт.  стало быть, ответ: 3