Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
chalenkotaya
19.07.2022 07:46 •
Информатика
Составить функцию которая определяет верно ли что сумма его цифр четное число. пример: введите число 136 сумма цифр на языке pascal.abc.net
Показать ответ
Ответ:
muradyanarutyun
08.10.2020 11:28
Function check(x:integer):boolean;var y: integer;beginy:= y+ (x mod 10);x:=x div 10;y:= y+ (x mod 10);x:=x div 10;y:= y+ (x mod 10);
if y mod 2 = 0 then check:=true else check:=false;end;
beginwriteln(check(136));end.
0,0
(0 оценок)
Популярные вопросы: Информатика
fatyaa22
26.02.2020 03:30
Информатика паскаль, даны целые положительные числа a и b. найти их наибольший общий делитель (нод), используя алгоритм евклида: нод(a, b) = нод(b, a mod b), если b = 0; нод(a,...
magasadrudinov
10.12.2022 05:30
Проаналізуйте циклічну конструкцію 1)for і := 1 to 2 do 2) for j := 2 to 3 do 3) for k := 1 to 3 do...
анюко
10.06.2022 06:55
ответьте письменно на вопросы. 1) Как беспилотные автомобили определяют своё местонахождение? 2) Какие сенсоры используют беспилотные автомобили? 3) Назовите профессии, представители...
ulyana14547
31.05.2020 02:08
Определи значение переменной C выполнения фрагмента программы представленного блок-схемой...
laaaaal228
03.07.2020 05:31
Кто финансирует разработку компьютерные игры а затем выпускает её на рынок...
zb2004
10.10.2021 22:45
Нужен алгоритм на тему ответ у доски ...
tania071168
05.02.2022 20:21
1. дайте имена объектам: a) выросшим на грядке: б) проживаюшим в москве: в) трактором; г) посещаюшим детский сад: д) находящимся в школе. 2. примеры: а) пустого множества: б)...
PrivPomogite
30.01.2022 04:53
По восприятия информация не бывает: -текстовой -аудиальной -символьной -графической...
nastya05112
23.05.2020 01:23
ЖАЗЫЛЫМ о7-тапсырма. Салыстыр. Дереккөздерді пайдаланып, БенХейннің өмірбаяны туралы мәліметтерді тап. Оның өмірбаянын екі түрлімәтін түрінде жаз. Алдымен өмірбаяндық мәтін түрінде...
Урок541
23.05.2020 01:23
1) Сколько неспаренных электронов в атоме хлора, находящиеся в максимально возбуждённом состояние. А) 1 Б) 3 С) 4 Д) 5 Е) 7...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
if y mod 2 = 0 then check:=true else check:=false;end;
beginwriteln(check(136));end.