Const
N = 5;
M = 10;
Var
A : array[1..N,1..M] of Integer;
i,j : Byte;
Begin
For i:=1 to N do
Begin
For j:=1 to M do
Begin
If i>j then A[i,j]:=i else A[i,j]:=i*j;
Write(a[i,j]:6);
end;
Writeln;
end;
end.
Если какое-то число A в степени n мы переводим в A-ичную систему счисления, то мы получим 1 и n нулей (вытекает из способа перевода чисел из десятичной в а-ичную)
Отсюда:
3^14 в троичной записи = 100 000 000 000 000
3^12 = 1 000 000 000 000
3^3 = 1 000
Считаем, получаем 9 двоек
И тем не менее до сих пор это животное продолжает оставаться самым большим в мире
Var x,y,u:real;
function min(a,b:real):real;
begin
if a>b then min:=b else min:=a;
end;
begin
write('x=');read(x);
write('y=');read(y);
u:=min(x+y,x*y);
writeln(u);
<span>end.</span>