Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
min і max нужно присвоить а[1].
1. нужно найти сколько бит весит обна буква.
64 это 6 бит информации.
2. i=6*20= 120 бит
мы умножыли биты на количество используемых букв.
вот и
program summa;
var s, a, b, c : word;
begin
write('введите a - > '); readln(a);
write('введите b - > '); readln(b);
write('введите с - > '); readln(c);
s: =a+b+c;
write(' сумма равна ',s);
readln
end.
program vvl;
var x: integer;
v: real;
write('x=');
readln (x);
v: = abs(a)-2;
writeln ('v='; v: 2: 1);
Популярные вопросы