tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дано натуральное число n. вычислить
Дано натуральное число n. вычислить сумму цифр этого числа.
rudenkovitalik
3 08.03.2019 07:10
2
Ответы
валентинка20
24.05.2020 05:21
var n,s:integer;
Begin
read(n);
while n>0 do begin
s:=s+n mod 10;
n:=n div 10;
end;
writeln(s);
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
1dianalady1
17.06.2019 08:20
Почему в названиях текстовых документов,файлов и т.п. нельзя ставить ? * : / \ | ? напишите развёрнутый ответ....
кар91
05.02.2021 18:33
Дан текстовый файл. Найти количество вхождений данного символа в текстовом файле. На паскале! ...
hocoladka
14.11.2019 22:55
Условный оператор if a mod 2 =0 then write (a); печатает 1 четное число 2 двузначное число 3 целое число 4 простое число...
МахаХей
14.11.2019 22:50
Как удалить программу fences? ...
ЮлічкаВдовіна
14.11.2019 22:49
(a& b& c)∨a& b& c как это сокращать...
viktoiabekkknuv
15.11.2019 00:16
Что делать если при восстановлении или перестановки системы виндовс 8 пишет ошибку типо не завершено или отказано в что делать?...
Dashazavalish
14.11.2019 23:47
Написать программу которая сортирует одномерный массив методом простого выбора в порядке возрастания на с++...
DashaKarg3
14.11.2019 23:37
Объём сообщения равен 11 кб сообщение содержит 11264 символа какова мощность алфавита с которого записано сообщение...
akaev1087
15.11.2019 00:52
Завдання 3. виконання у excelпобудувати графік функції y=sinx на проміжку [-3,14; 4,06] з кроком (0,2.фірма «sphincs» продає автомобілі різних марок (bmw, alfa romeo, toyota, nissan,opel)....
тося42
15.11.2019 05:13
For15 c++ дано вещественное число a и целое число n ( 0). вывести a в степени n: an = a•a••a (числа a перемножаются n раз)...
Популярные вопросы
Найти нок чисел 120 300. 100 станок...
3
Расстояние от города а до города б 420...
1
Сколько рулонов обоев необходимо купить чтобы оклеить стены комнаты, если размер...
2
Лодка проплыла d км по течению реки за 2 ч, а против течения - за 3 ч. на сколько...
3
Напишите,сочинение по за 8 класс по капитанской дочке ,по теме рыцарство петра гринева...
3
Печенья расфасовали в пачки по 500гр и по 200 гр, больших пачек получилось 60 ....
1
Создать предложенияиз слов.сумерки.клецки.очки.догонялки.щипцы.ножницы.санки.7 предложений...
2
Оперные произв.в котором участвовал иван !...
1
Какие стили характеры для искусства 18 века...
1
Как перевести слово по lieblingsfach...
3
var n,s:integer;
Begin
read(n);
while n>0 do begin
s:=s+n mod 10;
n:=n div 10;
end;
writeln(s);
End.