jolytalib
04.02.2022 12:47

Какие величины могут быть помещены в ячейки таблицы Excel?

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
andrey455
19.02.2021 07:39
                                               -Приглашение-
                                 
                                      Уважаемый Pozhidaevad!
   Приглашаем Вас и Ваших близких на концерт красивой музыки
 «За подвиг, мама я тебя благодарю!» с участием Лауреата Всероссийских и Международных фестивалей и конкурсов Хоровой школы мальчиков «ДЕБЮТ», Хора девочек «СОЛЬБА» детского приюта Николо-Сольбинского Монастыря и творческих коллективов в рамках Международного дня людей с ограниченными возможностями здоровья.
                                 
                               
     Будем рады видеть Вас 29 марта 2017 года в 18:00 в Большом концертном зале Московского городского Дворца детского твочества на                   Воробьевых горах по адресу: ул. Косыгина, д.17
0,0(0 оценок)
Ответ:
Zarinka952
26.02.2021 06:04
// PascalABC.NET 3.2, сборка 1403 от 16.03.2017
// Внимание! Если программа не работает, обновите версию!

function SumDigits(n:integer):integer;
begin
  Result:=0;
  while n>0 do begin
    Result+=n mod 10;
    n:=n div 10
    end
end;

begin
  var s:=ReadArrInteger('Вводите:',3).Select(x->SumDigits(x)).ToArray;
  var i:=s.IndexMax;
  var k:=s.Where(x->x=s[i]).Count;
  case k of
    1:begin
      Write('Сумма цифр наибольшая у ');
      case i of
        0:Write('первого');
        1:Write('второго');
        2:Write('третьего');
        end;
      Writeln(' числа')
      end;
    2:begin
      Write('Сумма цифр наибольшая у ');
      if s[0]=s[1] then Writeln('первого и второго чисел')
      else
        if s[0]=s[2] then Writeln('первого и третьего чисел')
        else Writeln('второго и третьего чисел')
      end;
    3:Writeln('Суммы цифр у всех трех чисел равны')
    end
end.

Примеры
Вводите: 102030 324 19
Сумма цифр наибольшая у третьего числа

Вводите: 16453 4320 56341
Сумма цифр наибольшая у первого и третьего чисел

Вводите: 12345 12354 54321
Суммы цифр у всех трех чисел равны
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота