Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Shbtura01
03.10.2022 09:48 •
Информатика
Дано натуральное число. определить верно ли что сумма его цифр есть число не четное.
Показать ответ
Ответ:
slender24
20.08.2020 20:19
var
a,x:integer;
i,s:integer;
begin
write('Введите число ');
readln( a );
x:=a;
s:=0;
while ( x<>0 ) do begin
s := s + (x mod 10);
x := x div 10;
end;
writeln( 'Сумма цифр числа ',a,' = ', s );
if (s mod 2 <>0 ) then
writeln('Верно')
else writeln('Неверно');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Бригман
20.03.2020 15:38
Вариант 3 При решении правильно оформить задачи. (Дано. Решение.) Обозначить все величины 1. Информационное сообщение объёмом 3,6 Мбайт передаётся со скоростью 8 000000бит/с....
Vrronika778
07.01.2020 11:10
Перевести из 8ной системы в 2ную число 409...
Weltrаum
16.11.2022 19:21
Утоли есть доступ к сети интернет по высокоскоростному одностороннему радиоканалу, обеспечивающему скорость получения информации 219 бит в секунду. у миши нет скоростного доступа...
Зафар1234567890
06.09.2021 03:01
Написать программу на Python, которая читая последовательность чисел из файла, выводит их на экран, убирая повторные цифры в каждом четном числе....
lalalllaaaallllalala
18.01.2022 11:48
программа Флешка.Скільки ще фотографій розміром 3020 х 2016 пікселів,кожен з яких закодовано 3 байтами,можна зберегти на карту пам яті обягом n Гб,якщо на ній уже збережено f...
kira1180
18.06.2021 10:19
Объясните, изученные вами адаптации у растений (кактуса и папоротника) относительные, или абсолютные? Поясните....
AlinaAlina110624
03.06.2022 22:56
Две столицы этого государства нынешнего и предыдущего на одной мередиане...
TheRidGames
07.12.2022 16:39
Упр 102 Сопоставьте предложения расставьте знаки препинания 1 К вечеру похолодало и лужи подернулись льдом - к вечеру обещали похолодание и мы заторопились домой . 2 В огороде...
ksyushenkа
14.09.2021 02:48
Язык Python Составить программу, которая в зависимости от порядкового номера дня месяца (1, 2, ..., 12) выводит на экран время года, к которому относится этот месяц...
1941108
29.12.2022 01:49
О чем текст Сны с Тартюфом? Какие чувства он у вас вызвал? Какой фрагмент понравился больше всего и почему?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a,x:integer;
i,s:integer;
begin
write('Введите число ');
readln( a );
x:=a;
s:=0;
while ( x<>0 ) do begin
s := s + (x mod 10);
x := x div 10;
end;
writeln( 'Сумма цифр числа ',a,' = ', s );
if (s mod 2 <>0 ) then
writeln('Верно')
else writeln('Неверно');
end.