Program a1;
var a,b: array [1..10] of integer;
n,i,k,sum,c: integer;
begin
Randomize;
For i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i]:3);
end;
Readln (n);
For i:=1 to 10 do
begin
k:=a[i];
while k>0 do
begin
sum:=sum+(k mod 10);
k:=k div 10;
end;
f (n=sum) then
begin
inc(c);
b[c]:=a[i];
end;
end;
for i:=1 to c do
write(b[i]:2);
<span>end.</span>
a->B2 =a*a*a->B3 =B3*B3*B3*B2->B4
a->B2 =a*a*a*a->B5 =B5*B5*B5*B5*B5->B6
a->B2 =a*a*a*a*a->B7 =B7*B7*B7*B7*B7->B8
a->B2 =a*a*a*a*a->B7 =B7*B7*B7*B5 ->B9
3Кб=3*1024=3072байта
3Кб=3*1024*8=24576бита
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (x,n):=ReadInteger2('x,n =');
var ans :=1;
while (n > 0)do
begin
ans*=x; dec(n);
end;
Writeln(ans);
end.
<u>Пример:</u>
x,n = 2 10
1024
156 - могло (например, для числа 960 9+6=15, 6+0=6)
1717 - могло (989)
1917 - не могло (сумма двух цифр не даст 19)
518 - не могло (5<18, а 51 не могло бы получиться)
512 - не могло (аналогично)
152 - не могло (если большая сумма 15, то меньшая не может быть меньше 15-9=6)
69 - не могло (6<9)
915 - не могло (9<15, 91 не могло получиться)
195 - не могло (19 не получить)
Ответ: 2.