<span>N=2^i
0.5 кбайта=512 байт или 512*8 бит
2 страницы по 256 символов=512 символов
512*8/512=8 бит информации на символ
по формуле 2^8=256 символов
</span>
Присвоить к переменной A текст введенный с клавиатуры.
К переменной i присвоим длину текста в переменной А.
Переменная J присвоить 0.
Переменная к присвоим 0, "к" = количество буквы "к" в тексте
Запустить цикла от J до i с шагом 1.
В теле цикла.
Проверим "к" = А[J] (А[1] = первая буква из теста,)
К переменной "к" присвоить "к+1". при условии если "к" = А[J] .
Если "к" не равно А[J] то без изменения.
Вывод "к"
0...7 = 8 символов.
Мощность алфавита равно N количеству <span>символов, из которых состоит алфавит</span>
Program mtokm;
begin
var a:double;
writeln("Введите расстояние в милях: ");
readln(a);
writeln("Расстояние в милях: ", a);
a := a / 5 * 8;
write("Расстояние в км: ", a);
end.