)даны три четырехзначных,целых числа.нужно вывести число с наименьшей суммой цифр. скиньте решение в паскале) заранее )

105

419

Посмотреть ответы 3

Ответы на вопрос:

sva1978

Информатика

4,4(35 оценок)

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! function sumdigs(n: integer): integer; begin n: =abs(n); // от отрицательных чисел result: =n mod 10; while n> 0 do begin n: =n div 10; result+=n mod 10 end end; begin var a: =readarrinteger(3); writeln(a[a.select(t-> sumdigs(.indexmin]) end. пример 1843 9012 8562 9012 замечание: число цифр в числе может быть от 1 до 9. отрицательные числа тоже допустимы.

Mrnikitos2002

Информатика

4,4(14 оценок)

Program z; var x: array[1..3] of integer; s,min,i_min,i: integer; begin min: =37; {начальное значение минимальной суммы выбрать больше самого большого из 4х-значных чисел 9999, т.е. 9+9+9+9=36} for i: =1 to 3 do begin readln(x[i]); {ввести очередное число} s: =x[1] mod 10 + x[i] div 10 mod 10 + x[i] div 100 mod 10 + x[i] div 1000; {считаем сумму цифр} if s< min then begin i_min: =i; min: =s; end; {если сумма меньше текущего значения минимума, то считать эту сумму минимальной и запомнить в i_min номер текущего числа} end; writeln(x[i_min]); {вывести число с номером i_min как число с минимальной суммой его цифр} end.

mihailsokolenk

Информатика

4,7(71 оценок)

Var k: integer; m: real; begin writeln('введите расстояние в километрах'); read(k); m : = k * 0.62; writeln(k, ' км = ', m: 0: 2, ' миль'); readln; end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.