Войти Регистрация Спроси ai-bota

Дано число. определить сумму цифр в этом числе.

Ответ:

Александра66656

07.09.2020 12:53

Var
s,n: integer;
begin
readln(n);
s:=0;
while n>0 do
begin
s:=s+(n mod 10);
n:=n div 10;
end;
writeln(s);
end.

0,0(0 оценок)

Популярные вопросы: Информатика

Сирениюм

31.01.2020 21:33

Построит чертеж в виде фронтальная диметрическая проекция картинка 2...

bilkosha2005

10.11.2022 16:22

Для чего служат: системные программы, инструментальные программы, прикладные программы....

Lolycomp40

25.12.2020 17:34

Какое минимальное количество бит информации необходимо для кодирования 1 поля шахматной доски, размером 8х8 клеток?...

Деструктивный

21.09.2021 16:05

Определи, может ли существовать такой IP-адрес: 122.156.206.278...

Птичка04

09.02.2020 08:10

Верно ли записана формула?Y = ((1+pow(cos(x),2))*(a+(b*x)))...

Ekaterina152005

29.06.2022 06:12

Дано трехзначное число. Верно ли, что все его цифры одинаковые?программа питон...

Scucorif

01.04.2023 07:42

Чертёжнику был дан для исполнения следующий алгоритм: Повтори 7 paз Сместиться на (−1, 2) Сместиться на (−2, 2) Сместиться на (4, −4) Конец Каковы координаты точки, с...

aslanəz

07.04.2021 02:51

В одномерном массиве, состоящем из n элементов, вычислить сумму элементов массива, стоящих между первым и последним нулевыми элементами, паскаль...

Абвгдежз1234567890

09.09.2020 16:20

. Напишите на языке Паскаль программу, которая выводить значение true при введенном значении x = 5 и false при других значениях x:...

Chumaeva79

28.03.2020 15:31

Скорость передачи данных по некоторому каналу связи равна 256 000 бит/с. Передача данных через это соединение заняла 4 минуты 16 секунд. Определите информационный объём переданных...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку