Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Monstrozacrs
31.01.2022 21:29 •
Информатика
Программа проверяющая верно ли утверждение что сумма цифр двузначного числа четное(на паскале)
Показать ответ
Ответ:
aarchery
05.10.2020 17:48
Var a,s:integer;
begin
write('a = ');
readln(a);
s:=a div 10 + a mod 10;
writeln('s = ',s);
if s mod 2 = 0
then writeln('Верно')
else writeln('Неверно');
end.
Пример:
a = 25
s = 7
Неверно
0,0
(0 оценок)
Популярные вопросы: Информатика
боня51
22.06.2021 13:40
1. с клавиатуры вводится число х. найти значение y=1/x....
sitnikovaalice
22.06.2021 13:40
Дано действительное число y. вывести на экран его абсолютное значение. программа microsoft visual c++ 2008 express edition...
Лкь4иц
22.06.2021 13:40
Тема: abc pascal. простые и составные условия. алгорическая конструкция (if, then, else и проч.) 1 заданы два целых числа. напечатать делится ли первое на второе нацело. 2 напечатать,...
Оля0901
08.08.2020 20:06
Из каких частей состоят инструменты условного форматирования...
nastasyasidork
10.03.2020 08:13
Из каких частей состоят инструменты условного форматирования...
Afon7
28.12.2020 03:02
Найти сумму k-той строки и g-того столбца pascal abc...
норочка3
25.07.2021 04:06
Какие виды опций имеет стиль условное форматирование и как описываются их функции...
witerold
30.08.2022 00:22
Найти сумму чисел кратных трем pascal abc...
Рюка
16.08.2020 02:49
A: \abc\папка 5\файл.txt , шас контроша...
rpppppppyuv
09.09.2022 21:05
Як варто виступати перед глядачами із презентацією?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('a = ');
readln(a);
s:=a div 10 + a mod 10;
writeln('s = ',s);
if s mod 2 = 0
then writeln('Верно')
else writeln('Неверно');
end.
Пример:
a = 25
s = 7
Неверно