Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
дизззи
18.04.2023 22:31 •
Информатика
1.составьте программу вычисления суммы цифр двузначного числа 2. составьте программу вычисления суммы цифр трёхзначного числа
Показать ответ
Ответ:
Данила4688
29.07.2020 07:10
Program znanija;
var a,s:integer;
begin
Read(a);
while a<>0 do
begin
s:= s + a mod 10;
a:= a div 10
end;
writeln(s);
end.
Работает для многозначных цифр не превышающих integer
0,0
(0 оценок)
Популярные вопросы: Информатика
mishchenko07
07.02.2023 15:01
Редактор электронных таблиц microsoft excel .вычислить значение выражения (arcsin1 + arctg1)/arccos0 +|-5|....
Fighertik
01.03.2022 06:13
Дано описание массива: var a:array [1..8] of integer;Здесь oписан массив a из ответ целочисленных значений. При выполнении этого оператора в памяти компьютера будет выделено...
ruslana0506
10.07.2022 01:09
Решите и в столбик чтобы было всё понятно...
raminpomohs
12.11.2021 00:38
1. ЧТО ПРОПУЩЕНО В РЯДУ: «СИМВОЛ — … — СТРОКА — ФРАГМЕНТ ТЕКСТА»? а) слово б) предложение в) абзац г) страница 2. МЕНЮ ТЕКСТОВОГО РЕДАКТОРА — ЭТО: а) часть его интерфейса,...
МаКсИк009
15.07.2022 13:07
Приведите схему делителя напряжения с использованием потенциометра и питанием от Arduino (5 В). Получите значения напряжений на каждом из плечей делителя, если отношение...
AutWezer
30.05.2020 12:12
Замените выделенные слова синонимичными мм фразеологизмами.определите каким членом являются фразеологизмы 1)змей горыныч унес царевну далеко 2)деаочка сильно покраснела 3)...
gavrilovanasta
30.05.2020 12:12
Почему раздел науки о языке, в котором изучаются предложения и словосочетания, называется синтаксисом, а единицы синтаксиса конструкциями?...
Отрак
30.05.2020 12:12
Fes- so2- so3- h2so4- k2so4- kcl- hcl...
Mapгарuтa
30.05.2020 12:12
Какие проблемы на ваш взгляд нужно решать в первую очередь что бы воплотить в жизнь идею устойчегого развития...
dasha34presnova
30.05.2020 12:12
Сочините небольшую загадку(4 строчки) поставлю на страницу и 10...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,s:integer;
begin
Read(a);
while a<>0 do
begin
s:= s + a mod 10;
a:= a div 10
end;
writeln(s);
end.
Работает для многозначных цифр не превышающих integer