Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
SASA7609508
18.10.2020 08:26 •
Информатика
Напишите на паскале программу вычисления суммы цифр 5-значного числа.
Ответ:
хорошистка553
07.10.2020 21:27
//PascalABC.NET
//Версия 3.3, сборка 1627
begin
write(abs(ReadInteger()).ToString().Select(x->x.ToDigit()).Sum());
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
89096117672
25.09.2020 21:12
Составить таблицу истинности к выражению...
Melentii
18.11.2021 15:45
Дано натуральное k от 1 до 180. написать программу для определения цифры, которая находится в k-той позиции последовательности 10111213…9899. формат входных данных файл содержит число...
Misha31071986
14.06.2021 15:25
Что определяет для массива x[1..n,1..m] следующий алгоритм v: =x[1]; for i: =1 to n do for j: =1 to m do if x[i,j] v then v: =x[i,j]; a) минимальный элемент массива б) сумму отрицательных...
Zheka1163
24.06.2022 18:57
Преобразуйте следующие двойные в восьмеричные 11111,111100...
mrfenics
30.07.2022 05:40
А2. Какая из ссылок является абсолютной?1) SBS42) F3D3) S24) & B&4...
annareain252
05.10.2020 20:17
5. К какой группе относится команда Вы-брать инструмент (рис. 144)?А) Движение.В) Внешность.C) Звук.D) Перо....
Celtt
05.09.2022 02:03
Создать массив двузначных чисел, произведение цифр которых не меньше 8. Найти количество таких чисел и вывести массив (паскале...
2261747
17.07.2022 10:50
Несжатое растровое изображение размером 256*64 пикселя занимает 16 кбайт памяти каково максимально возможное число цветов в палитре изображения...
Animeshon
04.08.2022 05:59
Напишите наименьшее целое число x, для которого истинно высказывание:не (x 13) и (x не делится на 8)....
hychkairyna
22.06.2020 18:25
Напишите программу,которая выводит на экран числа в диапозоне от 1000 до 9999...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
//Версия 3.3, сборка 1627
begin
write(abs(ReadInteger()).ToString().Select(x->x.ToDigit()).Sum());
end.