Нарисуй : под буквой а слог рок будет подарок, нарисуй сорок а = сорока, нарисуй : ''подача = будет слово дача или наоборот напиши слово да и над ним слог ча ... Много ребусов придумать можно и просто и легко ( если нужна помощь с ребусами обращайся ко мне)
Var
a:array[1..100,1..100]of integer;
m,n,i,j,s,max:integer;
begin
readln(m,n);
for i:=1 to m do
begin s:=0;
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
s:=s+a[i,j];
end;
if s>max then
max:=s;
writeln;
end;
writeln('S: ',max);
end.
Например таракан не любит мышь не любит кошку не любит человека не любит таракана
6 бит на символ так как 2 в степени 6 = 64;
50 байтов = 400 бит;
2000 символов = 12000 бит;
время = 12000/400 = 30 секунд