Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
vansob2003
15.01.2021 19:26 •
Информатика
Сумма всех цифр в числе вводимых пользователем, программа без while . паскаль , пример : число 127 значит сумма 10
Показать ответ
Ответ:
MatthewSan
07.10.2020 20:19
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write('сумма: ',ReadInteger('Введите число: ').ToString().Select(x->x.ToDigit()).Sum());
end.
0,0
(0 оценок)
Ответ:
baga27
07.10.2020 20:19
//Pascal
var x, Sum: longint;
begin
write('Число = ');
readln(x);
while (x<>0) do
begin
Sum := Sum + (x mod 10);
x := x div 10;
end;
writeln('Сумма цифр = ', Sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ufjcigi
22.11.2022 23:13
Ситуация 1.алишер рисовал костюмы для каждого спрайта проекте с встроенного графического редактора 2.жанара скопировала фотографии с занакос с с официального сайта известного фотографа...
baby2525
19.01.2021 18:28
С#, дано масив чисел. знайти, скільки в ньому пар однакових сусідніх елементів...
arsenenkodiana6
13.11.2021 13:18
Підготувати розповідь за темою як я використовую електронну пошту у навчанні 5-10 речень...
Alekskarpov
25.03.2023 23:48
5. Повідомлення, набране на комп ютері з використанням системи кодування Windows-1251, містить 1536 символів. Визначте довжину двійкового коду по-відомлення в кілобайтах ( )....
Рожочек11
27.03.2021 20:32
1)для записи текста использовался 256 символьный алфавит. чему равен информационный объем сообщения состоящего из 600 символов. 2.)для записи текста использовался 64 символьный...
ogh30662
05.04.2020 20:33
Əкесі мен ағасы арайлымға қандай сыйлық алды ответ...
rouberuplay
05.04.2020 20:33
Почему некоторые семя растений растут долго а некоторые быстро?...
bushukova16bk
05.04.2020 20:33
1.припишите к числу 30310124 слева и справа одну и ту же цифру так, что бы полученное десятизначное число делилось на 12. 2.у васи в кошельке немного денег. он положил ещё 49 рулей,...
дима5646
05.04.2020 20:33
Вклассе 30 человек.за контрольную работу по получено 15 пятёрок ,6 четвёрок ,8троек и 1 двойка .какое количество информациив сообщении о том ,что андреев получил пятерку...
DmitriiSh197
05.04.2020 20:33
Составить план по тексту из басни народов...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
//Версия 3.3, сборка 1611
begin
write('сумма: ',ReadInteger('Введите число: ').ToString().Select(x->x.ToDigit()).Sum());
end.
var x, Sum: longint;
begin
write('Число = ');
readln(x);
while (x<>0) do
begin
Sum := Sum + (x mod 10);
x := x div 10;
end;
writeln('Сумма цифр = ', Sum);
end.