Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
lykuanenkoartem
23.09.2021 22:10 •
Информатика
Составьте программу,которая определяет, является ли сумма цифр введённого целого 3-ёх значного числа чётным числом
Показать ответ
Ответ:
коаладоби
01.10.2020 12:04
Uses crt;
var a,b,c,s:integer;
begin
readln(a);
b:=a;
s:=0;
repeat
c:=b mod 10;
s:=s+c;
b:=b div 10;
until b=0;
if (s mod 2 =0) then writeln('четное') else writeln('нечетное');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
seitzhan1
01.12.2021 16:45
Придумать числовую цепочку из 7 примеров для 5 класса...
natalipanshina
01.12.2021 16:45
Переведите af (16) в двоичную, десятичную, восьмиричную системы счсления p.s. желательно поподробнее...
malinovaya14
01.12.2021 16:45
Написать программу для нахождения у у=х+5/а-в/с при а=4,75 в=3,5 х=4 с=12...
затура56
13.03.2021 23:23
1. Статья, набранная на компьютере, содержит 16 страниц, на каждой странице 64 строки, в каждой строке 24 символов. Определите информационный объём статьи в одной...
Katre678556
13.01.2020 03:22
Допо мо іть складіть алгоритм блок схему який обраховує площу та периметр квадрата з стороною-a...
www22042004
05.05.2023 14:10
Просто пишем контрошу что зачеркнуто не надо...
emuratov606Erali
11.01.2020 19:01
Вантаж масою 40 кг притискують до стіни з силою 100 н.яка потрібна сила, щоб рівномірно тягти вантаж вертикально вгору, якщо коефіціент тертя 0,2...
katiaj07102004
13.01.2023 13:49
Определите направление силы ампера, действующей на прямолинейный участок проводника с током, помещённый в магнитное поле помстоянного магнита...
Karolina777000
02.01.2023 00:46
3. ученик повара при приготовлении но- вого блюда строго придерживался ре- цепта. для определения объёма под- солнечного масла он использовал мерный цилиндр (рис....
yogurtq2018
25.04.2023 10:09
Составьте небольшой рассказ про принятие статута вкл 1588г и изменения, вызванные им....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,b,c,s:integer;
begin
readln(a);
b:=a;
s:=0;
repeat
c:=b mod 10;
s:=s+c;
b:=b div 10;
until b=0;
if (s mod 2 =0) then writeln('четное') else writeln('нечетное');
end.