Вводятся два числа найти разность этих чисел. ответ можно записать в строчку

Cls input a input b c=a-b print c end

Program zadacha_1; var a,b,rez: real; //я не случайно объявил типа real, поскольку в не сказно, какие числа вводятся: целые, или дробные begin writeln('введите два числа'); readln(a,b); rez: =a-b; writeln('разность: ',rez); end.

var

s,a,n,i,min,max: integer;

begin

min: =32767;

max: =-32768;

readln(n);

for i: =1 to n do

begin

readln(a);

if a< min then min: =a;

if a> max then max: =a;

end;

s: =(min+max)/2;

writeln(s);

end.

1. нужно найти сколько бит весит обна буква.

64 это 6 бит информации.

2. i=6*20= 120 бит

мы умножыли биты на количество используемых букв.

вот и