var i,a,b,c,k: integer;
begin
for i:=1 to 5 do
begin
a:=random(8)+1;
b:=random(8)+1;
write (a,' * ',b,' = ');
readln (c);
if c = a*b then k:=k+1
end;
writeln ('Вы правильно ответили на ',k,' примера')
end.
256 в 2-ую -100000<span>000;
256 в 8-ую - </span><span>400;
256 в 16-ую -100;
256 в 4-ую - 10000;
256 в 7-ую - 514;
</span>
Все слова в этом языке имеют вид aba, где a, b - неодинаковые буквы.
На место a можно поставить букву 31 способом, на место b - 30 cпособами (нельзя ставить букву, которая уже стоит на месте a). По правилу умножения получается не более 31 * 30 = 930 комбинаций.