4 года назад

В тесте написано на неизвестном языке 100 символо. информационный объём 400 бит определите мощность алфавита

1 ответ:

0 0

Боже, вот это текст...

В тексте 100 символов.
Весит текст 400 бит.

Значит, один символ весит 4 бита.
Максимальное (значит может быть и меньше) кол-во символов, которое можно закодировать в таком случае = 2^4 = 16. - ответ

Читайте также

Дан целочисленный массив из 20 элементов, все элементы которого – целые числа в интервале от -1000 до 1000. Опишите на языке про

Jasmin3913

Var
a:array [1..100] of integer;
n,l,i,j:integer;
begin
for i:=1 to 20 do
read (a[i]);
for j:=1 to N-1 do
for i:=1 to N-j do
if a[i] > a[i+1] 
then 
begin 
l:=a[i];
a[i]:=a[i+1];
a[i+1]:=l;
end;
for i:=1 to 20 do
if ((a[i] mod 2)=1) and ((a[i] mod 5)=0) 
then 
begin
writeln (a[i]);
break;
else writeln('таких чисел нет');
end;
end.

0 0

4 года назад

Помогите пожалуйста?нужно создать три программы в турбо паскале.1. Сумма чисел a+b2.Частное чисел x;y;3.Произведение чисел a;b;c

Irishka1231999

Var a, b: real;
begin
readln(a, b);
writeln(a + b);
end.

2)
var x, y: real;
begin
readln(x, y);
writeln(x / y);
end.
3)
var a, b, c, d: real;
begin
readln(a, b, c, d);
writeln(a * b * c * d);
end.

=))

0 0

1 год назад

Найдите произведение четных чисел, не привыкающих заданное натуральное число(N)

Tomasik [729]

Var n,i,p:integer;
begin
p:=1;
readln(n);
for i:=1 to n do
if i mod 2 = 0 then k:=k*i;
writeln(k);
end.

0 0

4 года назад

Дана последовательность, расположить ее элементы, кратные 3, по убыванию.(записать на языке паскаль)помогите срочно

АллаП

===== PascalABC.NET =====

begin

var n := ReadInteger('n=');

var a := ArrRandom(n, 10, 99); // для одинаковых позиций вывода

a.Println;

// элементы, кратные трем, упорядочить по убыванию

// прочие оставить на своих местах

var v := a.Select((v, i) -> (v, i))

.Where(t -> t[0] mod 3 = 0)

.OrderByDescending(t -> t[0])

.ToArray;

var w := v.Select(t -> t[1]).Sorted.ToArray;

for var i := 0 to w.High do

a[w[i]] := v[i][0];

a.Println

end.

0 0

4 года назад

Очень надо!!!!!помогите!!!!!!

Валентина1965

1)
0 5
2 1
4 6
2)
(0+2+4) = х ось
(5+1+6) = у ось
3)
(6;12) | •2
4)
(12;24)
5)
(12-2;24+1)
6)
(10;25)
Ответ: сместиться на (10;25).

0 0

4 года назад