Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
fatimatangatar
12.01.2023 10:58 •
Информатика
Написать в программе паскаль: дано целое число. если оно двузначное, найти сумму его цифр.
Показать ответ
Ответ:
rsdfa
17.07.2020 12:48
Program zadanie;
Var a,b:integer;
Begin
Writeln('Введите целое число');
Readln(a);
If (a div 10>0) or (a div 10<0) Then
begin
b:=a div 10;
a:=a mod 10;
a:=a+b;
Writeln('Сумма=',a);
end;
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
liteops04
18.10.2021 16:13
Дан вещественный вектор А(n). Найти количество элементов этой таблицы, больше средне-го арифметического всех ее элементов. Сортировка методом стандартного обмена....
Alisa48329
07.03.2022 08:48
Вштатном расписании фирмы волна всего 4 должности: водитель, кладовщик, бухгалтер, директор. работают в волне 4 сотрудника: иванов, петров, николаев, петухов. в мае они составили...
Ритаforever
27.04.2020 17:36
JAVA ПРОВЕРЬТЕ , ЧТО НЕ ВЕРНО Посчитать размер вклада в банке. Исходный вклад 10 000 Случайным образом следует получить количество лет вклада, и проценты по вкладу. Проценты...
andreevochir20
27.02.2020 14:18
Сколько разрезов нужно сделать, чтобы разрезать круглый торт на N одинаковых по форме и размеру кусков? Например, для N=6 необходимо сделать 3 разреза, а для N=5 — 5 разрезов....
stasison
23.06.2020 15:40
Математические основы информатики 99.1 д) В & (А у вус) Количество логических переменных: Порядок выполнения логических операций: а B & (A V B v C) А В с А у В A...
deulinslava26
07.04.2022 14:31
Разработать программу в которой сначала необходимо ввести размер одномерного массива после чего массив заполняется случайными числами и сортируется методом пузырька...
Ver2al
29.05.2021 08:33
Расшифровать предложение: 208 154 209 130 208 190 32 208 187 209 142 208 177 208 184 209 130 32 209 129 208 178 208 190 208 181 32 208 158 209 130 208 181 209 135 208 181...
zurkus112
24.05.2023 23:44
Вычыслте cos a, tg a, ctg a, если. sin a =-3/5 п а 3п/2...
Vlados22fhgff
26.01.2021 00:16
Определить сопротивление конденсатора ёмкостью 318 мкФ на частоте 50 Гц....
Стас1326
12.09.2020 15:03
С объяснениями В лотерее 20 билетов, из которых 8 выигрышных. Участник лотереи покупает билет. Найти вероятность того, что билет не является выигрышным...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var a,b:integer;
Begin
Writeln('Введите целое число');
Readln(a);
If (a div 10>0) or (a div 10<0) Then
begin
b:=a div 10;
a:=a mod 10;
a:=a+b;
Writeln('Сумма=',a);
end;
End.