Уважаемый Pozhidaevad! Приглашаем Вас и Ваших близких на концерт красивой музыки «За подвиг, мама я тебя благодарю!» с участием Лауреата Всероссийских и Международных фестивалей и конкурсов Хоровой школы мальчиков «ДЕБЮТ», Хора девочек «СОЛЬБА» детского приюта Николо-Сольбинского Монастыря и творческих коллективов в рамках Международного дня людей с ограниченными возможностями здоровья.
Будем рады видеть Вас 29 марта 2017 года в 18:00 в Большом концертном зале Московского городского Дворца детского твочества на Воробьевых горах по адресу: ул. Косыгина, д.17
// 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
Оформи подписку