1. 10, 3 раза добавилось 3;
2. 8, 4 раза добавилось 2.
Вроде так :)
ЭТО Я!!! это моя тетрадь!
Var i,j,n,m:integer;
a:array[1..100] of integer;
begin
Read(n);
for i:=1 to n do
for j:=1 to n do
begin
if cos(sqr(i)+n)>0 then m:=m+1;
End;
write(m);
<span>End.</span>
Возможное решение одно:
- 2 бита на символ и 3 бита на символ
Это 4 символа в одном алфавите и 8 символов во втором алфавите