Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Vironika123321
10.11.2020 14:43 •
Информатика
Среди двузначных чисел найти те, сумма цифр которых равна 10 (pascal).
Показать ответ
Ответ:
znj93294znj93294
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 оценок)
Популярные вопросы: Информатика
movnar98
10.07.2021 03:24
Укажите последовательность команд для запуска графического редактора Paint: * О Pi*y – Microsoft Office Меню – Программы изображения – Paint О О Paint - Gamma Графика...
hehegeuecegd
08.05.2022 20:06
2. решить (программа): а) найти сумму чисел в диапазоне от 10 до 30 б) найти произведение чисел в диапазоне от 10 до 15 в) найти сумму четных чисел в диапазоне от 10...
Tatjanaaa
13.06.2021 12:27
Племя пульти пользуется 32 символьным алфавитом свод основных законов племени хранится на 512 глинянных табличках, на каждую из которых нанесено ровно 256 символов. какое...
Ljjr6958der8cox45
28.02.2020 05:38
Замените ложные высказывания на истенные: при выключении компьютер информация из оперативной памяти стирается. на сd-rзаписывать информацию невозможно. объем диска cd-rom...
danya8202
18.03.2021 06:11
Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных6 и оканчивающихся на6. программа получает на вход натуральные...
Polino4ka171
18.01.2022 15:01
Обьясните что обозночают клавиши : ctrl+a ctrl+c ctrl+x ctrl+v ctrl+s ctrl+z...
alexgreen5454
18.01.2022 15:01
Створення копії документа на папері...
kislayaya13
07.10.2022 22:49
Работа с базами данных Разработать в среде MS Access структуру базы данных. Варианты тем взять из предложенного ниже перечня в соответствии с номером в списке группы...
lizstys
18.09.2022 17:25
В парке транспортной компании 15 автобусов, при этом у каждого автобуса свой собственный маршрут соединяющий два города. Сколько городов обслуживает транспортная компания,...
Semen123486
25.11.2021 08:55
Какое число появится в ячейке сз, если формулу из ячейки A1 скопировать в ячейку В1?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.