Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
TimRus162rusg
09.04.2020 17:17 •
Информатика
Напишите функцию, которая определяет сумму цифр переданного ей числа, в системе паскаль
Показать ответ
Ответ:
лера2083
10.07.2020 13:49
program axaxa;
var n,a,s:integer;
begin
readln(n);
s:=0;
while n>0 do
begin
a:=n mod 10;
s:=s+a;
n:= n div 10;
end;
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
faridremihanov1
08.04.2022 08:44
Даты визначення Змiнна величина...
mercurry
18.07.2021 11:54
17х + 8:2,5 на языке python...
Ruslan2289365
20.03.2023 04:48
Нормальные ли характеристики ? Диагональ 15,6″ - 39,62 см Серия ноутбука Ideapad Категория Базовые Операционная система Windows 10 Home Страна производителя Китай ДИСПЛЕЙ Разрешение...
mpavl8628
12.08.2020 08:44
Вычислите, сколько бит, байтов составляет ваше полное имя фамилия, отчество (Майлыбаева Анипа Айбековна)...
Maria404404
15.12.2022 22:30
Наиболее точным аналогом иерархической базы данных может служить: выберите один ответ: 1. генеалогическое дерево 2. вектор 3. множество данных 4. двумерная таблица вопрос 2 ключами...
lover7
05.11.2022 21:32
Люди надо выполнить все...
Lrins
01.09.2021 13:37
Запишіть арифметичний вираз за правилами мови C++ y=3x^2 - 4 / x -1...
zb2004
14.12.2022 16:33
Составить программу для нахождения наибольшего из 3 чисел....
Anna11111199933445
13.08.2021 02:08
Задан массив a. Если минимальный элемент расположен после последнего нуля, то заменить первый нуль на 10. Язык программирования си шарп...
Nauchniki
08.05.2020 03:30
Find the even function. a) y=x4+x2+2x thing b) y=x2+x+3 C) y=2x4+x2-3 d)y=-x5-x4-1...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var n,a,s:integer;
begin
readln(n);
s:=0;
while n>0 do
begin
a:=n mod 10;
s:=s+a;
n:= n div 10;
end;
writeln(s);
end.