Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
missislera2017
19.03.2021 12:02 •
Информатика
Дано пятизначное число, нужно вычислить сумму цыфр. записать в порядке возрастания числа
Показать ответ
Ответ:
zarya0207
23.06.2020 14:47
Это часть про разложение на цифрыuses crt;
var a,b,c,d,e,x:integer;
begin
write('vvedi chislo');
readln (x);
a:=x div 10000;
b:=x div 1000 mod 10;
c:=x mod 1000 div 100;
d:=x mod 100 div 10;
e:=x mod 10;
writeln (' ',a,' ',b,' ',c,' ',d,' ',e);end.
0,0
(0 оценок)
Популярные вопросы: Информатика
opalinskayavik
25.05.2023 07:19
. Укажите преимущества визуальных HTML-редакторов, по сравнению с редакторами исходного кода при оформлении веб-страниц? НЕСКОЛЬКО -Можно не знать языка разметки гипертекста -более...
Kisapodkaifom
27.07.2020 22:41
По заданной блок-схеме напишите код программы и проверьте ее работо в среде програмирования . Задача Найти количество миллиметров и количество полных метров в заданном количестве...
Pomogu0pogalycta
12.05.2022 09:14
1. в настоящее время рекорд гиннесса по скорости чтения составляет 60 000 знаков в минуту (примерно 60 страниц текста) (установлен россиянкой). если учащийся младших классов читает...
katjaherson
12.05.2022 09:14
Вшкатулке находятся нитки,иголки и тесьма,но все надписи неверные.что где на самом деле,если в желтой шкатулке не нитки?...
oleninaonii
12.05.2022 09:14
16. в базе данных хранятся записи, содержащие информацию о датах. каждая запись содержит три поля: год (число от 1 до 2100), номер месяца (число от 1 до 12) и номер дня в месяце...
буду1
05.03.2022 05:48
А) Определить значение контрольного бита при передаче сообщения A с использованием битов четности. б) Определить контрольные и информационные биты в сообщении A методом Хемминга....
58722001
04.08.2022 14:11
Найти угол= аob? угол= вао ? угол= аов? ...
lren1
19.05.2020 12:39
Важно. найдите понятие, которое является обобщающим для всех остальных понятий представленного ниже ряда, и запишите цифру, под которой оно указано. 1) государственные деятели 2)...
CagBak
09.01.2021 17:22
Плюсы и минусы индустриализации в казахстане...
ВеДьМоЧкА11111
24.07.2020 23:31
Как быстро получить валериановую и масляную кислоту из бытовых субстанций (в качестве прекурсоров можно использовать что угодно, тем более серную, соляную и азотную кислоты)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,b,c,d,e,x:integer;
begin
write('vvedi chislo');
readln (x);
a:=x div 10000;
b:=x div 1000 mod 10;
c:=x mod 1000 div 100;
d:=x mod 100 div 10;
e:=x mod 10;
writeln (' ',a,' ',b,' ',c,' ',d,' ',e);end.