Program abc;
var a,b,c,i,i1:integer;
begin
readln(a,b);
if(a<b) then
for i:=1 to b do
begin
i1:=i+1;
c:=i1+i;
end;
if(a>b) then
for i:=1 to a do
begin
i1:=i+1;
c:=i1+i;
end;
writeln(c);
end.

0 0

4 года назад

Некоторый алфавит содержит 256 символов. Сообщение состоит из 15 символов. Определите информационный объём сообщения.Пожалуйста

Денис Михайлович ...

256 вариантов - это 1 байт. 15 байт. И еще буквы

0 0

4 года назад

Некоторый алфавит содержит 64 символов. Сообщение состоит из 5 символов. Определите информационный объем сообщения

ylia8625 [1]

Мощность алфавита 64, значит для кодирования одного символа требуется 6 бит, т.к. 64 = 2^6.
Объем сообщения равен 5*6 = 30 бит

0 0

3 года назад

Помогите написать программу по задачам. Паскаль

Буся27

Задача № 6
var r:array[1..100,1..100] of integer;i,j,n,k,sum:integer; sr:real;
beginrandomize;write('Введите n: ');readln(n);
writeln('Исходная матрица: ');for i:=1 to n dobeginfor j:=1 to n dobeginr[i,j]:=random(10);write(r[i,j]:4);end;writeln;end;writeln;for i:=1 to n dobeginfor j:=1 to n dobeginif i=j then beginwrite(r[i,j]:4);sum:= sum + r[i,j];end elsewrite(' ':4);end;writeln;end;sr:= sum / n;writeln;writeln('sr:=', sr);
writeln;for i:=1 to n dobeginfor j:=1 to n dobeginif sr < r[i,j] thenk:= k + 1;end;end;writeln('k:=', k);end.

0 0

1 год назад