Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
tiser
01.02.2022 09:30 •
Информатика
Дано натуральное число. определить верно ли что сумма его цифр есть число не четное.
Показать ответ
Ответ:
jaz5
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 оценок)
Популярные вопросы: Информатика
amozgaleva96
28.11.2021 07:21
1. Задана матрица порядка n и число к. Разделить элементы k-й строки на диагональный элемент, расположенный в этой строке....
Хэймзон
15.08.2022 11:01
1. Что такое синтаксическая ошибка?2. Что такое алгоритмическая ошибка?3. Что такое тестирование?4. Зачем тестировать программу?...
PrinceGangsTa
18.03.2023 19:19
В течении 25 секунд производилась запись звука в компьютере при частоте дискретизации 22,050 кгц и разрядности квантования 16 битами Определите информационный объем получившегося...
slava202011
31.03.2023 02:56
Напишите программу в массиве с(14) найти сумму отрицательных и среднее арифметическое положительных элементов....
Rock2015
11.09.2021 20:59
Какой из указанных объемов памяти, необходимый для хранения информации, большей? а)100байт б) 0,001мбайт в)1кбайт с)0,000000000000001...
SupercellTV
10.10.2022 21:55
Напиши сочинение на тему уроки слова или о чём рассказывает слово . выбери одно, два или три слова, которые чем-то привлекают тебя ( они могут быть интересны с точки зрения своего...
Darima111
10.10.2022 21:55
Какое из водородных соединений содержит большую массовую долю водорода: h2s, ch4, nh3. ответ обосновать расчётами...
морол
10.10.2022 21:55
Мне нужно сочинения-описание про 9 мая...
папенко
10.10.2022 21:55
Жаз мезгілі туралы тақпақтардың ози...
KateNio
10.10.2022 21:55
Решение систем линейных уравнений подстановки { y-2x=3 { 2x+3y=1...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.