По формуле
, где N - кол-во символов в алфавите, i - объём информации в одном символе. Получаем
. Значит i=2, т.е. каждый символ равен 2 битам.
30 строк*70 символов в строке= 2100 символов на странице
2100 символов*5 страниц=10500 всего символов
Далее нужно умножить общее кол-во символов на 2 бита 10500*2=21000
Далее переводим из битов в байты 21000/8=2625 байт
Ответ: 2625 байт
Program qw;
uses crt;
Type
Atlas=Record
country,capital:string;
area,people:real;
end;
ps=File of atlas;
Var f:ps;
z,t:atlas;
Begin
assign(f,'1.dat');
rewrite(f);
z.country:='Латвия'; z.area:=67.7;
z.people:=2.6; z.capital:='Рига';
write(f,z);
z.country:='Литва'; z.area:=65.2;
z.people:=3.4; z.capital:='Вильнюс';
write(f,z);
z.country:='Польша'; z.area:=313;
z.people:=34.8; z.capital:='Варшава';
write(f,z);
z.country:='Украина'; z.area:=603.7;
z.people:=50; z.capital:='Киев';
write(f,z);
z.country:='Россия'; z.area:=17075.4;
z.people:=139; z.capital:='Москва';
write(f,z);
Close(f);
assign(f,'1.dat');
reset(f);
read(f,t);
while not(eof(f)) do
begin
read(f,z);
if t.people/t.area < z.people/z.area then t:=z;
end;
close(f);
writeln('Cтранa с наибольшей плотностью населения:');
writeln(t.country,' (плотность населения равна ',t.people/t.area:9:6,' млн на кв.км)');
end.
Var i,k,x,y,l,m,s:integer;
begin
readln(k);
readln(x);
readln(y);
readln(l);
readln(m);
for i:=1 to k do
begin
s:=x*l;
x:=x+y;
l:=l+m;
end;
writeln(s);
end.
Если нужно, переменные можно вводить в 1 строку через пробел, записав так: readln(a,b,c,d)
Читают с помощью азбуки Брайля, руки