Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Neу4
13.02.2020 07:05 •
Информатика
:дано 2-х значное число, определить является ли сумма его цифр 2-х значным числом. вопрос: как решить эту в программе free
Ответ:
nastyasiminyuk
04.08.2020 06:45
//Pascal
var N: byte;
begin
write('Введите 2-значное число: '); readln(N);
if (N mod 10 + N div 10) >= 10 then
writeln('Сумма цифр 2-значная = ', N mod 10 + N div 10)
else
writeln('Сумма цифр не 2-значная = ', N mod 10 + N div 10);
readln;
end.
Пример:
Введите 2-значное число: 86
Сумма цифр 2-значная = 14
Введите 2-значное число: 54
Сумма цифр не 2-значная = 9
0,0
(0 оценок)
Популярные вопросы: Информатика
КириллГромов2000
18.02.2021 17:07
это не пт урокам просто как узнать пороль или открыть это? ...
maximminkov315
30.11.2021 09:04
Как переустановить виндовс 10? У меня пиратская купил оригинальную. Сбросятся ли все данные при переустановке винды?!...
samiraizashirin
09.06.2020 14:27
`1.опишите процесс принятия логического решения. 2.возможно ли решение логических без использования операций логики?...
AlinaRoz
09.06.2020 14:27
Сожмите массив выбросив каждый 3 его элемент.выведите на экран исходный и измененный результат...
толька54
14.02.2020 00:11
1 - Определите значение переменной с после выполнения следующего фрагмента программы: а:=6 b:=13 a:=b-a*2 if a b then c := a+b else c:=b-a 2 - Исправьте программу , чтобы она стала...
макс3094
30.03.2023 15:47
класс Составьте план разработки презентации. a.Подобрать фотографии и рисунки. b.Подобрать музыку или видео. c.Оформить презентацию. d.Настроить анимацию и навигацию. e.Определить...
uhon1k
30.03.2023 15:47
Сколько бит памяти занимает чёрно-белое изображение (без градаций серого) шириной 700 точек и высотой 60 точек?...
zohvav
11.10.2022 08:08
Верное обозначение столбца в электронной таблице ... AB R13 56 13U...
талифа4
18.02.2020 03:04
Выполните вычисления по блок – схеме для числа Х = 63. Запишите ответ....
Lizavladimir07
28.10.2021 02:25
[tex]3 x - 4y 0[/tex]если оношение задано следующим неравенством, то данному отношению принадлежит следующая пара чисел....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var N: byte;
begin
write('Введите 2-значное число: '); readln(N);
if (N mod 10 + N div 10) >= 10 then
writeln('Сумма цифр 2-значная = ', N mod 10 + N div 10)
else
writeln('Сумма цифр не 2-значная = ', N mod 10 + N div 10);
readln;
end.
Пример:
Введите 2-значное число: 86
Сумма цифр 2-значная = 14
Введите 2-значное число: 54
Сумма цифр не 2-значная = 9