Вход
Регистрация
Спроси здесь
Все
Биология
Информатика
Видео-ответы
Физика
Французский язык
Русский язык
Қазақ тiлi
История
Окружающий мир
География
Обществознание
Алгебра
Психология
МХК
Другие предметы
Английский язык
Українська література
Право
ОБЖ
Немецкий язык
Українська мова
Беларуская мова
Музыка
Химия
Экономика
Геометрия
Литература
Показать все предметы
Показать меньше предметов
020324
26.05.2019 10:50 •
Информатика
Составьте программу,которая определяет, является ли сумма цифр введённого целого 3-ёх значного числа чётным числом
Показать ответ
Ответ:
fucgxrxgv
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 оценок)
Популярные вопросы: Информатика
Буууууууууууууурито
09.07.2019 04:30
8. что надо написать вместо многоточия, чтобы вывести элементы массива x[1..n] в обратном порядке? в ответе не используйте пробелы. for k: =1 to n do writeln ( );...
dianapavliska2
15.08.2019 08:20
За один семестр студент должен пройти 2 тестирования.максимальное количество ; которое может набрать студент за каждое тестирование, это 100 .сообщение о том, что он первое тестирование,...
Юлия45684
11.05.2021 12:08
найдите соответствие. Модуль pygame для рисования фигур. Основные модули пакета pygame. Модуль для обработки очереди событий. Модуль pygame для работы с мышью...
Kabesov
11.05.2021 12:07
Сколько см должено быть между монитором и злазами...
alenabovkun
11.05.2021 12:04
Надо сделать в Excel! Подбором найдите начальную скорость, при которой камень, брошенный под углом 60°, собьёт неподвижную цель на удалении 100 м и на высоте 20 м....
shadow909
22.04.2021 18:27
Исполнитель рисовальщик в кумире надо сделать ...
Kolyanbe360
22.04.2021 18:29
Что означает сцена блоков?...
kotletka223
22.04.2021 18:31
Решить в python Составить программу нахождения периметра произвольного треугольника(формула: p=a+b+c)...
shapox
14.12.2020 22:39
2часть. Дз по информатике. Решите...
Ксенька20012002
14.12.2020 22:41
У исполнителя Альфа две команды, которым присвоены номера: 1. прибавь 4; 2. раздели на b (b — неизвестное натуральное число; b ≥ 2). Выполняя первую из них, Альфа увеличивает...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
КОМПАНИЯ
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ и учителей
Сообщество родителей
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
Установи приложение
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь понять?
Спроси здесь
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.