Нужна , !
1. одно яблоко весит 100 граммов, один апельсин -150 граммов, а один банан – 170 г. вам заданное количество яблок, апельсинов или бананов, и взять можно только что-то одно. хочется взять то, что весит побольше. напишите программу, подсказывающую, что лучше взять; яблоки, апельсины или бананы.
2. дано натуральное число, меньшее 1000. напишите программу, которая определяет количество разных цифр в этом числе. пример: число: 988 ответ: 2

===== 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.