Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Ксюшенька2017
26.06.2020 01:37 •
Информатика
Составить программу для нахождения суммы чисел 4-х значного числа
Показать ответ
Ответ:
5бкрутой
06.10.2020 00:09
Var A:integer;
Begin
Write('Введите четырёхзначное число: ');ReadLn(A);
WriteLn('S = ',(A div 1000)+(A div 100) mod 10+(A div 10) mod 10+A mod 10);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Karaokpiao
16.11.2021 13:22
Чему будет равен результат выполнения программы, если ввести значения для a=2468? program c22; var a,b: integer; k: integer; begin k: =0; readln(a); while (a 0) do begin b: =a mod...
Any0070
31.05.2020 22:32
Как добавить новый столбец в таблицу? 1)выбрать ячейку в столбце, слева от которого следует вставить новый столбец, меню вставка — команду столбец; 2) выбрать ячейку в столбце, слева...
maximstrekalovs
31.05.2020 22:32
Втечении 10 секунд было передано сообщение. количество информации в котором равно 5000 байтов. каков размер алфавита, если скорость передачи 800 символов в секунду?...
12233454647758886776
11.10.2021 08:05
В Тридевятом царстве царь был любителем разных заморских традиций. Как прознает, что в другом царстве есть какой-то обычай, сразу думает, как бы его к тридевятым реалиям при . Вот...
Jojo11wye
02.09.2022 04:22
1. Відкрийте середовище розробки та виконання просктів. 2. Моторний човен илив 2 год озером і 3 год річкою за течією. Складіть математичну модель і проєкт для обчислення відстані,...
margo344
12.05.2022 11:53
Написать алгоритм нахождения периметра прямоугольного треугольника по известным катетам a и b СДЕЛАТЬ БЛОК СХЕМУ ПЛЗ...
glebik28898
05.04.2022 23:22
ИСПОЛНИТЕЛЬ ЧЕРТЕЖНИК НАДО НАПИСАТЬ ИМЯ ВОВА ДЕЛАЕТСЯ В ПРОГРАММЕ КУМИР...
svetamalova1876
09.08.2022 10:01
Определить синус острого угла х, если tgх = 4/3, с подробным решением...
DreamEvilDead
09.08.2022 10:01
Какой алгоритм решения линейных и квадратных неравенств? кратко,понятно,разборчиво....
Fargoo99
09.08.2022 10:01
Мольные доли метилового спирта и воды в растворе составляют 0,5 и 0,5. каково соотношение этих компонентов в газовой фазе: a. мольная доля спирта больше b. мольные доли равны c. мольная...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Begin
Write('Введите четырёхзначное число: ');ReadLn(A);
WriteLn('S = ',(A div 1000)+(A div 100) mod 10+(A div 10) mod 10+A mod 10);
End.