Дано: N=256, а=15, в=32, с=64
Найти: I
I= k*i, где k- количество символов в тексте, i - количество бит на символ
N=2^i, где N- количество символов в алфавите, 256= 2^i,
отсюда i= 8
k= a*b*c= 15*32*64= 30720 символов
I=30720*8= 245760 бит = 30720 байт
2)E:\ИЗОБРАЖЕНИЯ\ФОТО\Катунь.jpeg
// было бы неплохо предусмотреть случай, когда введены два одинаковых числа:
var
a, b: Integer;
begin
write('Введите два целых числа: ');
readln(a, b);
if a > b then
writeln('Меньшее число = ' + IntToStr (b))
else if a < b then
writeln('Меньшее число = ' + IntToStr (a))
else
writeln('Числа равны.');
end;
поровоз вроде!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
A1:=a;
a:=a*a; //a^2
a:=a*a; //a^2*a^2 = a^4
a:=a*a*a1; // a^4*a^4*a = a^9
Начало и конец программы в овале, действия в квадратах. Программа совершается последовательно