Два сообщения содержат одинаковое количество символов. количество информации в первом тексте в 1, 5 раза больше чем во втором. сколько символов содержат алфавиты с которых записанные сообщения, если известно , что число символов в алфавите не превышает 10 и на каждый символ приходится целое число

Так как объем первого сообщения в 1,5 больше объема второго, то и i1 больше i2 в 1,5 раза, т.е. i1=1.5*i2 так как i должно быть целым числом   и  , то получим пару  i1= 3 i2=2 . следовательно  , a  количество символов в алфавитах 8 и 4 символа соответственно

1.

a = 4

                  2.

a = 0

                  3.

a = 8

                  4.

a = 16

                  5.

вывод: 21

                  6.

вывод: 486

                  7.

вывод: 1345

program p1; usescrt; vara : array[1..3] of array [1..4] of longint; i,j : integer; begin

clrscr;

randomize;

writeln('massiv : ');

for i : = 1 to 3 dobegin

writeln('');

for j : = 1 to 4 do begin a[i][j] : = random(15)+random(5)-random(5);

write(a[i][j]: 2,' '); end;

 

end;

for i : = 1 to 3 dofor j : = 1 to 4 dobegin

if a[i][j] > 10 then a[i][j] : = i - j;

if (a[i][j] > = -5) and (a[i][j] < = 5) then a[i][j] : = sqr(i);

end;

writeln(''); writeln('');

writeln('itogoviy massiv : ');

for i : = 1 to 3 dobegin

writeln('');

for j : = 1 to 4 do begin

write(a[i][j]: 2,' '); end;

 

end;

 

readln; readln;

end.