|
0 / 0 / 0
Регистрация: 21.05.2023
Сообщений: 1
|
|
Отсортировать массив по возрастанию суммы цифр и записать его в файл output.txt, В файле input.txt записаны числа (в сто21.05.2023, 17:00. Показов 683. Ответов 0
Метки нет (Все метки)
var n , t : integer; a : array[1..100] of integer; f: text; function sum(x : integer) : integer; var s : integer; begin s := 0; while x > 0 do begin s := s + x mod 10; x := x div 10; end; sum :=s; end; begin assign(f, 'D:\PascalABC.NET\Файлы\input.txt'); reset(f); n := 0; while not eof(f) do begin n:=n+1; readln(a[n]); end; for var i := 1 to n - 1 do for var j := i + 1 to n do if sum(a[i]) > sum(a[j]) then begin t := a[i]; a[i] := a[j]; a[j] := t; end; close(f); assign(f, 'D:\PascalABC.NET\Файлы\output.txt'); rewrite(f); for var i:=1 to N do writeln(f, a[i]); close(f); end.
0
|
|
(| 21.05.2023, 17:00 | |
|
Ответы с готовыми решениями:
0
В файле input.txt хранятся числа, разделенные пробелом. Отсортировать их по возрастанию и записать в файл output.txt Файл: Отсортировать массив по возрастанию суммы цифр и записать его в файл output.txt.
|
| 21.05.2023, 17:00 | |
|
Помогаю со студенческими работами здесь
1
Отсортировать массив по возрастанию суммы цифр и записать его в файл output
В файле input.txt содержатся сведения о группе студентов. переписать данные файла в файл output.txt, отсортировав их по возрастанию
Найти среднее арифметическое всех чисел из input.txt и записать его в файл output.txt Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
|
Новые блоги и статьи
|
|||
|
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2.
При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
|
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут.
https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc
Первый документ красиво выглядит, но без схемы.
Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
|
Автозаполнение реквизитов при создании документа
Maks 26.03.2026
Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере".
Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .
|
Команды формы и диалоговое окно
Maks 26.03.2026
1. Команда формы "ЗаполнитьЗапчасти".
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2.
В качестве источника данных. . .
|
|
Кому нужен AOT?
DevAlt 26.03.2026
Решил сделать простой ланчер
Написал заготовку:
dotnet new console --aot -o UrlHandler
var items = args. Split(":");
var tag = items;
var id = items;
var executable = args;. . .
|
Отправка уведомления на почту при изменении наименования справочника
Maks 24.03.2026
Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .
|
модель ЗдравоСохранения 5. Меньше увольнений- больше дохода!
anaschu 24.03.2026
Теперь система здравосохранения уменьшает количество увольнений.
9TO2GP2bpX4
a42b81fb172ffc12ca589c7898261ccb/
https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/
Слева синяя линия -. . .
|
Midnight Chicago Blues
kumehtar 24.03.2026
Такой Midnight Chicago Blues, знаешь?. .
Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .
|