Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
HelpmeAnna1
24.09.2021 14:16 •
Информатика
Составить программу вычисления суммы цифр введенного с клавиатуры 3- х значного натурального числа . например для числа 128 сумма цифр 11, а для числа 345 сумма цифр12.
Показать ответ
Ответ:
svelt04
02.10.2020 02:37
Program gt;
var n,s:integer;
begin
readln(n);
s:=(n div 100)+(n div 10)mod 10+(n mod 10);
writeln(s);
end.
каждая скобка это 1 2 3 цифра соответсвенно
0,0
(0 оценок)
Ответ:
семенггвп
02.10.2020 02:37
Var a,N,sum:word;
begin
Read (N);
Sum:=0;
While N<>0 do
begin
a:=N mod 10;
N:=N div 10;
Sum:=sum+a;
end;
Write (sum);
end.
Или по-простому еще так:
Var a,b,c,N:word;
begin
Read (N);
a:=N mod 10;
b:=(N mod 100) div 10;
c:=N div 100;
Write (a+b+c);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Физик5765
10.08.2020 21:25
Все 5-буквенные слова составленные из букв с л о н записаны в алфавитном порядке и пронумерованы укажите слово которое стоит под номером 321...
ketkovalchuk
10.12.2020 06:22
Информационными моделями являются: ярлыки таблицы формулы карты ноутбук графики...
просточеловек20171
19.04.2023 11:11
Написать примеры для 3-4 отношения....
irina0208ga
09.04.2021 22:29
Записана программа построения графика функции y=3cos2x-4x+1 на промежутке [-10;10]. Изменить программу, чтобы был построен график функции y=cos2x-sin3x на промежутке...
Варя11011
06.12.2021 14:41
Можно номер 20 и номер 21...
Лопамрлш
11.03.2021 17:04
Заполни таблицу.Команда Координаты точкиНачальная точка x,yсместиться на вектор (3,2) (x+...; y+...)сместиться на вектор (7,6) (x+...; y+...)сместиться на вектор (6,−4)...
cfxdcvbnm
05.02.2021 10:17
Объем сообщения составляет 1/512 часть Гбайта.Содержит 1048576 символа .Сколько битов приходится на 1 символ...
innagavr
03.08.2022 09:52
[ ]логическая функция F задаётся выражением...( см. фото выше)...
адевале1
27.04.2020 13:40
Трансформуйте в речення з непрямою мовою. «Кого ж ти, княже, залишиш замість себе в Києві?» - спитав єпископ. «Жну й не чую, що сполохала пташину», - мовила мати, докоряючи...
malika0604200
23.04.2022 09:33
Упражнение 4. Раскройте скобки, употребляя глаголы в Present Perfect - Past Indefinite.1. What... (happen) to your hair? It s standing on end!2. Where (you, be) this...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var n,s:integer;
begin
readln(n);
s:=(n div 100)+(n div 10)mod 10+(n mod 10);
writeln(s);
end.
каждая скобка это 1 2 3 цифра соответсвенно
begin
Read (N);
Sum:=0;
While N<>0 do
begin
a:=N mod 10;
N:=N div 10;
Sum:=sum+a;
end;
Write (sum);
end.
Или по-простому еще так:
Var a,b,c,N:word;
begin
Read (N);
a:=N mod 10;
b:=(N mod 100) div 10;
c:=N div 100;
Write (a+b+c);
end.