Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
MrWolf1244
26.03.2020 15:23 •
Информатика
Pascal abc! дано натуральное число n. вычислите сумму его цифр.при решении этой нельзя использовать строки, массивы (ну и циклы, разумеется).
Показать ответ
Ответ:
bellalove200
03.10.2020 17:07
//Pascal ABC.NET v3.1 сборка 1219
Var
n,s:integer;
procedure sumforfunclang(n:integer;var s:integer);
begin
if n>0 then
begin
s:=s+n mod 10;
n:=n div 10;
sumforfunclang(n,s);
end;
end;
begin
readln(n);
sumforfunclang(n,s);
writeln(s);
end.
Пример ввода:
34
Пример вывода:
7
0,0
(0 оценок)
Популярные вопросы: Информатика
keshatroy86e7
30.10.2020 07:44
Считывание команды из оперативной памяти осуществляет(ют): Укажите правильный вариант ответа: 1)устройства вывода 2)процессор 3)устройства хранения информации 4)устройства ввода...
Пень01
17.04.2021 16:13
Опишіть ієрархічну і мережну моделі БД (microsoft Access...
Rybinchik
25.03.2021 09:08
ОЧЕНЬ На бесконечном поле имеются 4 стены, расположенные в форме прямоугольника. Длины вертикальных и горизонтальных стен неизвестны. Робот находится в клетке, расположенной...
yuliyaduda11
03.06.2022 05:48
Найти сумму целых положительных нечетных чисел, меньших 200...
nikakri14
21.03.2023 06:46
Применение векторной графики по сравнению с 1. обеспечивает наилучшее качество тоновых орнаментов 2. не влияет на объем памяти, необходимый для хранения изображения 3. сокращает...
Nurik271100
01.04.2023 18:12
Кто когда изобрел телефон,телевизор,компьютер,интернет....
Nikolayirh
26.02.2020 18:12
Написать программу в паскале, которая проверяет проверяет по заданным трем сторонам треугольник на равносторонность...
sashamay2016
26.02.2021 04:09
Для какого числа x истинно высказывание (x 2)или(x 5)→(x 3) 1) 5 2) 2 3) 3 4) 47)для какого из значений числа z высказывание ((z 2)или(z 4)) →(z 3) будет ложным? 1) 1 2) 2 3)...
dlazech1979
24.08.2022 11:49
Чем отличаются данные от программы?...
незнайка2901
15.08.2020 18:09
Какие источники информации использовали следующие персонажи сказок а.с. пушкина 1 церевич елисей,искавший невесту 2 злая мачеха,задумавшая извести свою падчерицу и доверявшая...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var
n,s:integer;
procedure sumforfunclang(n:integer;var s:integer);
begin
if n>0 then
begin
s:=s+n mod 10;
n:=n div 10;
sumforfunclang(n,s);
end;
end;
begin
readln(n);
sumforfunclang(n,s);
writeln(s);
end.
Пример ввода:
34
Пример вывода:
7