128 символов = 2^7 т.е. 7 бит на символ
Одна страница занимает = 8750байт / 5 страниц = 1750 байт
Одна строка занимает = 1750 байт / 25 строк = 70 байт
Символов в строке = 70*8 бит / 7 бит = 80 символов
Var
choose:char;
x: real;
begin
writeln('Переводить в радианы(Р) или в градусы(Г)?');
readln(choose);
if choose = 'Р' then
begin
write('Введите градусы: ');
readln(x);
writeln('Радианы: ', x*0.017);
end
else
if choose = 'Г' then
begin
write('Введите радианы: ');
readln(x);
writeln('Градусы: ', x*57,3);
end
else
writeln('Переводить можно ТОЛЬКО в радианы(Р) или градусы(Г)!');
end.
Так как в максимальная цифра в записи чисел = 5, то минимальное основание системы счисления = 6.
312(6) = 3*6^2+1*6+2 = 116(10)
222(6) = 2*6^2+2*6+2 = 86(10)
111(6) = 6^2+6+1 = 43(10)
152(6) = 1*6^2+5*6+2 = 68(10)