запишем условие: мощность алфавита равна N=256, страниц=3, строк=48, символов=64, I=?
решение: подсчитаем общее количество символов в тексте
К=3*48*64=9216
найдем вес одного символа алфавита
256=2^i, 2^8=2^i, i=8 бит
вычислим информационный объем текста
I=K*i=9216*8=73728 бит=9216 байт
var
a, d, c, k: <em>real</em>;
begin
readln(a, d, c, k);
writeln((a - (d + 21) * 2) * (c - 7 * k));
end.
var k,p: integer;
begin
readln(k,p);
if k*80<p*70 then
write('автомобилист проедет меньший путь; разность: ',p*70-k*80,'км')
else write('мотоциклист проедет меньший путь; разность: ',k*80-p*70,'км');
end.
Program Lloyd;
var
i,a:integer;
begin
a:=1;
for i:=1 to 55 do begin
if (i mod 5)=0 then
a:=a*i;
end;
writeln('Произведение =',a);
end.
Var
N,S,d:integer;
Begin
S:=0;
Write('N = ');ReadLn(N);
For d:= 1 to N do
if N mod d = 0 then S:=S+d;
WriteLn('S = ',S)
End.