Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
shavkatbronduk1
25.02.2022 00:31 •
Информатика
Впрограмме паскаль дано трёхзначное число. определите, является ли сумма цифр этого числа чётным числом. если да, то выведите 1, иначе выведите 0.
Показать ответ
Ответ:
sanek15604
02.10.2020 09:56
Var x,sum:integer;
begin
readln(x);
sum:=1;
while x>0 do begin
sum+=x mod 10;
x:=x div 10;
end;
writeln(sum mod 2);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
tuni2
18.02.2023 15:32
Запиши программу на языке Паскаль, выведи ответ на экран, если 1,53147 и 2,8324.На экранеvvedi dva chisla1,53147 2,8324...
ynavuhlitska
28.12.2021 08:49
1) Устройство для записи цифрового видео. 2) Ввод, сохранение в цифровом виде и обработка видео сигнала. 3) Устройство, с которого можно принимать и сохранять на компьютере...
nata524
27.03.2021 11:58
Каждой величине укажите единицу измерения....
Алинаme
03.06.2020 00:06
Составить макет базы данных Магазин одежды с несколькими таблицами. Пример: Таблица 1 Название - Код товара, наименование, количество и т.д....
Lina111334
31.01.2021 11:14
2. Сколько бит информации содержится в сообщении: «четверть килобайта»? * 3. Алфавит племени Мульти состоит из 32 букв. Какое количество информации несёт одна буква этого...
nastiamakeeva0
30.10.2022 16:06
У исполнителя Омега две команды, которым присвоены номера: 1. вычти 1 2. припиши справа (b — неизвестная цифра). Выполняя первую из них, Омега уменьшает число на экране...
makskos4444
13.06.2022 02:30
Одна из вершин куба abcda1b1c1d1 совпадает с началом координат,а три его ребра лежат на координатных осях.ребро куба равно 1. найти координаты всех вершин куба и длину диагонали...
dimonlanko
13.06.2022 02:30
Вчем состояли особенности взаимоотношений парламента и королевской власти в 16 веке...
АлфавитABC
13.06.2022 02:30
Записать пропущенные буквы.ко..я несёт ко..я к забору.ветер покрыл крыльцо пы..ю....
kukolkabarb
13.06.2022 02:30
Коли автомобільні перегони проходять кільцевою трасою, водії намагаються пройти повороти по внутрішньому краю полотна дороги. для чого вони це роблять?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(x);
sum:=1;
while x>0 do begin
sum+=x mod 10;
x:=x div 10;
end;
writeln(sum mod 2);
end.