1. - б) г) е) и смотря на каком языке программирования еще и д)
2. - а) Real б) Integer в) Real г) Integer
3. - По порядку: Integer, Real, Integer, Integer, Real
1)
150 байт = 150*8 бит = 1200 бит
Количество информации на один символ = 1200/400 = 3 бита
Количество символов в алфавите = 2^3 = 8
2)
Количество символов = 80*55 = 4400
3300 байт = 3300*8 бит
Количество информации на один символ = 3300*8/4400 = 6 бит
<span>Количество символов в алфавите = 2^6 = 64
</span>
3)
Количество символов = 3*80*33 = 7920
6930 байт = 6930*8 бит
Количество информации на один символ = 6930*8/7920 = 7 бит
<span>Количество символов в алфавите = 2^7 = 128</span>
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:='1 января 2004 года';
s.MatchValues('\d+').Select(w->w.ToInteger).Sum.Println;
end.
<u>Результат</u>
2005
Var a:array of integer;
n,i,k:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
read(a[i]);
if a[i]>7 then begin a[i]:=7; k+=1; end;
end;
writeln(k);
for i:=0 to n-1 do
write(a[i],' ');
<span>end.
var a:array[1..10] of integer;
i,p:integer;
begin
p:=1;
for i:=1 to 10 do begin
read(a[i]);
p*=a[i];
end;
writeln(p);
<span>end.
var a:array of integer;
i,sr,n:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
read(a[i]);
sr+=a[i];
end;
writeln(sr/n:3:2);
<span>end.
var a:array of integer;
n,i,k:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
read(a[i]);
if a[i]>0 then k+=1;
end;
writeln(k);
<span>end.
var a:array of integer;
n,i,k1,k2:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
read(a[i]);
if odd(a[i]) then k2+=1
else k1+=1;
end;
writeln(k1,' ',k2);
<span>end.</span></span></span></span></span>
Антивирус по и обновления....
