Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
cempalov
27.03.2021 15:05 •
Информатика
Среди двузначных чисел найти те, сумма цифр которых равна 10 (pascal).
Ответ:
kittikatlove
06.10.2020 08:01
Program;
var a,i:integer;
Begin
for i:=10 to 99 do
read(a);
if (a mod 10+ a div 10=10) then
write(a);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Andrey5454
03.02.2020 02:42
Можно ли назвать эти изображения моделями реальных устройств клавиатура,мышь,колонки,принтер,монитор,сканер...
tyfftgv
24.04.2023 10:36
Вкоробке находятся красные, синие и белые карандаши, причем синих в три раза больше, чем белых, а количество красных карандашей 56. сообщение о том, что достали белый...
Mixachu
29.12.2022 17:52
Укажи стрілками послідовність естапів створення документа ДРУК ДОКУМЕНТА РЕДАГУВАННЯ ТЕКСТУ ФОРМАТУВАННЯ ТЕКСТУ ВЕДЕНЯ ТЕКСУ...
kseniyarigil
27.05.2020 13:45
Как набрать 6 литров воды имея в наличии 5 литровое и 3 литровое ведро...
Yanika159
22.02.2022 03:50
Как записывается десятичное число 10 в двоичной системе счисления?...
pineapplenastya1
22.02.2022 03:50
С++ в одномерном массиве выполнить сортировку по убыванию и вывести после сортировки на экран первые 3 элемента массива...
Engishmaster
22.01.2020 18:07
Построить график функции y=-2x+1...
кракодиллох1
20.05.2022 23:25
Сократи дробь d^2+2d/d^2−4...
katyasha0504
24.02.2023 20:50
1. Вычислите силу Архимеда, действующую в воде на тело объемом 40 см3. ɡ= 10 Н/кг А) 8 Н B) 4,4 Н С) 4 Н D) 0,4 Н...
Maryana1069
23.10.2022 17:41
Дана функция у=х^2-4х+3 решите...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var a,i:integer;
Begin
for i:=10 to 99 do
read(a);
if (a mod 10+ a div 10=10) then
write(a);
End.