Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
BelkinaDasha000
09.06.2021 17:45 •
Информатика
Pascal. дано десятизначное число. найти сумму его цифр (с цикла for).
Показать ответ
Ответ:
mashechca
30.07.2020 18:52
Var a,b,c,e:longint;
begin
writeln('введите число');
readln(a);
for b:=a downto 0 do begin
c:= a mod 10;
a:=a div 10;
e:=e+c;
end;
writeln('сумма цифр числа => ',e);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
musinalarisa
18.10.2020 07:22
По данным социологов, из N о человек на улицах Харькова за Партию Программистов собираются голосовать M человек. Используя операцию приведения к типу double, напишите...
mskobetsnata
10.04.2020 20:23
Перевести з десяткової системи в двійкову числа 106;204;403;588...
FlayakaDanya
22.11.2022 09:36
Докажите свойство - -A&B=AvB...
пажалуйста4
17.07.2020 01:53
Для хранения растрового изображения размером 128х128 пикселей отвели 4 кбайт памяти. каково максимально возможное число цветов в палитре изображения?...
ririf
17.07.2020 01:53
Запишите внутреннее представление десятичных чисел,используя 8-разрядную ячейку: а)32 б)-32 в)102 г)-102 д)126 е)-126...
PolinaDudnik
18.03.2022 01:06
Небольшое сообщение на тему: на чём и чего люди записывали информацию в былые времена?...
HiКАK
30.09.2020 00:15
1) правильно ли определён тип величины? a. количество тетрадей - вещественный тип b. кличка собаки - символьный тип с. вес контейнера - целый тип 2) укажите тип величины,...
mtrololo09
14.06.2022 11:29
Вpascal abc необходимо: 1. вывести на экран все двузначные числа, которые нацело делятся на число, введённое пользователем. 2. даны трёхзначные натуральные числа n и k...
alena0707listru
14.06.2022 11:29
Проходим сейчас шифры цезаря и виженера. не могу решить это ( -кодирование осуществляется перестановкой букв в слове по одному и тому же правилу. восстановить слова и...
epicrare15
25.11.2021 17:41
Дано число а и натуральное число n . напечатать на экране а в степени n ( паскаль цикл с предусловием)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
writeln('введите число');
readln(a);
for b:=a downto 0 do begin
c:= a mod 10;
a:=a div 10;
e:=e+c;
end;
writeln('сумма цифр числа => ',e);
end.