Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
BcezHaNKa
14.02.2022 06:04 •
Информатика
Написать программу , которая вводит с клавиатуры число от 0 до 999999(использовать переменные типа longint) и выдает на экран дисплея сумму цифр этого числа. напишите в делфи .
Показать ответ
Ответ:
rahimzhan20p0dqkg
28.09.2020 10:56
Var
n: longint;
i, sum: integer;
begin
Readln(n);
Sum := 0;
while n > 0 do
begin
Sum := sum + (n mod 10);
n := n div 10;
end;
Writeln(sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
artem12345678903
28.03.2020 23:12
МНОГО При выполнении заданного фрагмента кода что рассчитано A =[59,87,3,7,23,-35,67,-26,7,78] k = 0 for n in A if n%2 = 2: k+2 print (k) (1) Количество элементов равно 2 (2)сумма...
Пандochka
15.08.2022 14:26
это сор Напишите программу. Заполните список, состоящего из 8 элементов, случайными числами от 30 до 70. Выведите на экран список и сумму элементов массива. *...
Qhdbhbsgfbdgff
27.05.2023 02:29
Картинка имеет размеры 1024х768 пикселей, отображается 16 777 216 цветов. Какой объёмпамяти она займёт?2. Ваш монитор поддерживает разрешение до 1600х1200 и цветовую палитру...
Ананасик2052
14.04.2021 12:05
Сравни созданные слайды. Проанализируй их и рас- скажи об их оформлении.Охрана окружающей средыОХРАНА ОКРУЖАЮЩЕЙ СРЕДЫ ...
dkniga041
23.01.2020 05:11
Какая операция с текстом должна быть выполнена при форматировании текста?...
monkeyone
28.08.2020 09:56
Запишите определение одномерного массива(1б) Необходимо заполнить массив числами (количество вводимых чисел определяет пользователь), вывести его на печать, отсортировать его...
kinzya
21.03.2020 13:40
Записать в тетради алгоритм создания видео фрагмента 8 марта...
ПолинаРыжкова3
26.05.2021 23:36
Укажите свойства цикла с заданным числом повторений....
АринаРоудер
16.01.2021 14:35
1.Что такое трассировка алгоритма? 2.Что такое трассировочная таблица?3 Что моделирует трассировочная таблица?ответьте правильно ...
ПОЗИТИВЧИК750
10.06.2020 17:10
Какую мощность имеет мотор при повороте вправо...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n: longint;
i, sum: integer;
begin
Readln(n);
Sum := 0;
while n > 0 do
begin
Sum := sum + (n mod 10);
n := n div 10;
end;
Writeln(sum);
end.