До: 2 байта\символ
После: 1 байт\символ, размер сократился на 240 бит
Решение: 240\8=30 байт
поскольку 30\1=30, размер сообщения = 30 символов.
Могу написать типо вводиш 1 и пишет форма, вводишь 2 пишет тик и т.д. сойдет?
Если сумма цифр делиться на три то число тоже делиться на три
Например:123-1+2+3=6/3=2 значит и 123 делиться на два(будет 41)
У меня получилось:
Аня - литература
Саша - география
Лена - информатика
Вася - история
Миша - математика
Var ar:array[1..10] of integer;
k,i,m:integer;
begin;
randomize;
k:=1;writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(0,15);
if odd(i)=false then k:=k*ar[i];
write(ar[i]:4);
end;
writeln;
writeln('Result:',k);
if odd(k) then writeln('Yes') else writeln('No');
end.
<span>
//Мала вероятность того, что вернёт Yes, поэтому прикрутил Result
Вывод с 300-400 запуска:
Array:
9 15 8 15 5 3 0 15 3 9
Result:91125
Yes<span>
</span></span>