Ввести целое число и найти сумму его цифр (1234) Паскаль

82

Ввести целое число и найти сумму его цифр (1234) Паскаль

категория: информатика

ответить

в избранное

34

almi_

29 марта 2023

var s,i: integer; begin readln (i); s: =0; repeat s: =i mod 10+s; i: =i div 10 until i=0; writeln (s); readln end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

Другие вопросы по информатике

29 марта 2023

Диск стоит x рублей n копеек у вас имеется a рублей b копеек хватит ли вам денег на диск

29 марта 2023

Помогите составить алгоритм, по которому на компе будет происходить следующее: в переменную S вводится возраст Саши, в переменную М вводитсявозраст Маши. В качестве результата на экран выводится фраза «Саша старше Маши " или «Маша старше Саши»

29 марта 2023

Все сотрудники фирмы для работы в локальной сети используют пароли. Длина пароля ровно 8 символов. В качестве символов используются девять цифр и 5 буквлатинского алфавита, все буквы используются в двух начертаниях: как строчные, так и заглавные (с учетом регистра букв). Под хранение каждого такого пароля на компьютере отводится минимально возможное и одинаковое целое количество бит, при этом используется посимвольное кодирование и все символы кодируются одинаковым и минимально возможным количеством битов. Сколько паролей доступно для использования, если для их хранения достаточно 15 Кб?

29 марта 2023

Книга содержащая 20 страниц текста (на каждой стр 30 строк, в каждой строке 40 символов) , была передана модемом за 2 минуты. Определите скорость передачиданных модемом и выразите ответ в битах/секунду

29 марта 2023

Помогите решить задачу! Найти сумму отрицательных и сумму положительных чисел на отрезке от А до В. cwhile

29 марта 2023

В таблице приведены запросы и количество страниц, которые нашел поисковый сервер по этим запросам в некотором сегменте Интернета: Запрос

29 марта 2023

Написать в программе паскаль: вычислить и напечатать результат выражения z при c=15, d=5z=5 (c+2dв кубе) дробь c+d

29 марта 2023

Ввести число. Если оно положительное, уменьшить его на 3, пока оно не станет отрицательным. Если же число отрицательное, то увеличивать его на 2, пока оно нестанет больше 70. Ни экраны вевести оба число.

29 марта 2023

Какие часы показывают точное время лишь два раза в сутки

Задайте свой вопрос

ПОПУЛЯРНОЕ

filosof, 29 марта 2023

Диск стоит x рублей n копеек у вас имеется a рублей b копеек хватит ли вам денег на диск

submedia, 29 марта 2023

Помогите составить алгоритм, по которому на компе будет происходить следующее: в переменную S вводится возраст Саши…

lirikis, 29 марта 2023

Все сотрудники фирмы для работы в локальной сети используют пароли. Длина пароля ровно 8 символов

vkmfxc99, 29 марта 2023

Книга содержащая 20 страниц текста

killerbe, 29 марта 2023

Помогите решить задачу! Найти сумму отрицательных и сумму положительных чисел на отрезке от А до В. cwhile

annastasia, 29 марта 2023

В таблице приведены запросы и количество страниц…

remox, 29 марта 2023

Написать в программе паскаль: вычислить и напечатать результат выражения z при c=15, d=5z=5 (c+2dв кубе) дробь c+d

k5k2000, 29 марта 2023

Ввести число. Если оно положительное, уменьшить его на 3, пока оно не станет отрицательным

nvetka, 29 марта 2023

Какие часы показывают точное время лишь два раза в сутки?

27400

14821

Английский язык

14216

Биология

7369

720

Экономика

18828

8304

География

15850

Геометрия

5255

Информатика

11818

23332

15992

Литература

73118

Математика

8152

Обществознание

465

Правоведение

46271

Русский язык

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!

Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!

Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...