Регистрация
CoolGirl78
16.06.2022 09:49
Информатика
Есть ответ 👍

Чему будет равна мощность алфавита , если информационный объем каждого символа алфавита равен 6 ?

248
457
Посмотреть ответы 1

Ответы на вопрос:

viktoriabuble
viktoriabuble
4,8(75 оценок)

var a: array[1..10,1..10]of integer;

i,j: integer;

begin

for i: =2 to 10 do a[i,1]: =i-1;

for i: =2 to 10 do a[1,i]: =i-1;

 

for i: =2 to 10 do

for j: =2 to 10 do

a[i,j]: =a[i,1]*a[1,j];

 

for i: =1 to 10 do begin

for j: =1 to 10 do

write(a[i,j]: 3); if j=10 then writeln; end;

 

end.

Популярно: Информатика