Все за одного и одни за всех
"Принтер" ........................
<em>// PascalABC.NET 3.2, сборка 1456 от 26.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var s:=Range(10,99).Where(x->(Power(x div 10,3)+Power(x mod 10,3)=n));
if s.Count>0 then s.Println
else Writeln('Нет таких чисел')
end.
<u>Пример</u>
n= 9
12 21
N=int(input('задайте размер массива '));
<span>lst=input().split(' ');
</span><span>mx=0;
</span><span>for i in range (0,n):
</span><span> if (int(lst[i])>mx):
</span><span> mx=int(lst[i]);
</span><span> k=1;
</span><span> else:
</span><span> if (int(lst[i])==mx):
</span><span> k+=1;
</span><span>print(mx,k);
</span>задайте размер массива 10
<span>-15 10 14 7 21 19 13 21 11 17
</span><span>21 2
</span>