Var i:integer;
begin
i:=1;
repeat
writeln(i, i*i:4);
i+=1;
until i=16;
end.
Const
n = 5;// количество элем массиваvar
a: array [1..n] of integer;
sum, i: integer;begin
for i := 1 to n do
readln(a[i]);
for i := 1 to n do
if a[i] = i then
sum := sum + a[i];
writeln(sum);
end.
По сути мы имеем числа длины 5 в трочной системе счисления.
А вместо 0, Н - 1, Т - 2
первое число ААААА = 00000 = 0
потому на 74 месте будет число 73(в десятичной) = 02201 (в троичной) = АТТАН (в требуемой записи)
N = 10 ** 9 + 13
d = 2
while n % d != 0:
d += 1
<span>print(d)</span>
<span>Ответ: 7699</span>
Не знаю, о какой схеме идет речь, но количество слов определить элементарно.
Всего есть 3 позиции, на каждой из них может стоять один из двух символов.
Значит искомое количество слов = 2*2*2 = 8.