V=K*I; V - объем сообщения K - количество символов в сообщении I - вес одного символа; N=2^I, где N мощность алфавита (N≤32 ⇒ I≤5); V₁=V₂ (объёмы сообщений); 2,5*K₁ = K₂ V₁=K₁*I₁; V₂=K₂*I₂=2,5*K₁*I₂; приравняем объёмы K₁*I₁=2,5*K₁*I₂ ⇒ I₁ = 2,5*I₂ решим уравнение в целых числах, учитывая, что любое I≤5 ( можно подставлять числа для I₁ от 1 до 5 и найти то решение, при котором I₂ - целое число); у меня получилось I₁ = 5; I₂=2 т.к. 5=2,5*2 нам нужны мощности 1го и 2го алфавитов N₁=2^I₁=2⁵=32 символа; N₂=2^I₂=2²=4 символа.
V - объем сообщения
K - количество символов в сообщении I - вес одного символа;
N=2^I, где N мощность алфавита (N≤32 ⇒ I≤5);
V₁=V₂ (объёмы сообщений);
2,5*K₁ = K₂
V₁=K₁*I₁;
V₂=K₂*I₂=2,5*K₁*I₂;
приравняем объёмы
K₁*I₁=2,5*K₁*I₂ ⇒
I₁ = 2,5*I₂
решим уравнение в целых числах, учитывая, что любое I≤5
( можно подставлять числа для I₁ от 1 до 5 и найти то решение, при котором I₂ - целое число);
у меня получилось I₁ = 5; I₂=2 т.к. 5=2,5*2
нам нужны мощности 1го и 2го алфавитов
N₁=2^I₁=2⁵=32 символа;
N₂=2^I₂=2²=4 символа.
ответ:
на форму поставил компонент memo
в edit1 и edit2 вводим значения строк и столбцов
для цикла for i: = for j: =
на кнопке следующий код
объяснение:
procedure tform1.button1click(sender: tobject);
var i,j: integer; s: string;
begin
a: = strtoint(edit1.text);
b: = strtoint(edit2.text);
for i: = 1 to a do begin
s: = '';
for j: = 1 to b do
s: = s+' '+inttostr(i*j);
memo1.lines[i-1]: = s;
end;
end;