===== PascalABC.NET =====
-№1-
begin
var (Яблок, Апельсинов, Бананов) :=
ReadInteger3('Число яблок, апельсинов и бананов:');
var ВесЯблок := 100 * Яблок;
var ВесАпельсинов := 150 * Апельсинов;
var ВесБананов := 170 * Бананов;
if ВесЯблок > ВесАпельсинов then
if ВесЯблок > ВесБананов then
Print('Берем яблоки')
else
Print('Берем бананы')
else if ВесАпельсинов > ВесБананов then
Print('Берем апельсины')
else
Print('Берем бананы')
end.
-№2-
begin
var n := ReadInteger('Введите натуральное число;');
var P := new HashSet<integer>; // это множество целых
while n > 0 do
begin
P += n mod 10; // очередную цифру добавляем ко множеству
n := n div 10
end;
P.Count.Println // в множестве все элементы уникальны
end.
0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0
Объяснение: