Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
shmiganastya06
02.10.2020 10:08 •
Информатика
Составите программу вычисления количества трехзначных чисел, у которых цифры строго по возрастанию
Показать ответ
Ответ:
mashabest19861
04.10.2020 21:48
Var
i, j, c: integer;
begin
c := 0;
for i := 100 to 999 do
if(((strtoint(i.ToString[1])) < (strtoint(i.ToString[2])))
and ((strtoint(i.ToString[2])) < (strtoint(i.ToString[3]
then c := c + 1;
write(c);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
99786
14.05.2023 07:37
Дан ip-адрес, выбери и запиши верные ответы. ip-адрес 152.50.121.180 компьютера относится к сети класса b , адрес компьютера в сети - *** . *** . *** , а 180 - это адрес пользователя....
AlanaBelkina
14.05.2023 07:37
Охарактеризуйте основные этапы создания публикаций ms publisher 60...
Mrkeu
24.06.2022 07:09
Моя сестра перепутала кнопки нажала не на + а на селект это на колонке Bravis музыка стала странно звучать Что делать...
Huuur
27.02.2022 02:43
Параллелограмм, угол 2а равен 90 градусов. найти углы а и в. нужно . желательно сегодня...
xammatovrunar
27.02.2022 02:43
Боковая сторона равнобедренного треугольника делится точкой касания вписанной окружности в отношении 8: 3 считая от вершины угла при основании треугольника. найдите стороны...
lenapyda
27.02.2022 02:43
Формула уксусной кислоты если её молекула состоит из двух атомов карбона...
HAPKOMAH2281
27.02.2022 02:43
Синтаксический разбор предложения: на золотом фоне пожелтевшей листвы выделяются яркие пятна красно-жёлтых клёнов и осин....
тлрп
27.02.2022 02:43
Умоляю, заранее большое . 99 . your teacher has asked you to write an essay presenting the pros and cons of exercising in groups.write your essay (120 - 160 words)....
verayusupova86
27.02.2022 02:43
Объясните характер описанных в параграфе социальных взамимодействий, используя тексте сорокина. документ размышления об обществе pyccкoгo социолога, ocнoвoпoложника отечественной...
eva70218
27.02.2022 02:43
Подскажите 8словарных слов со 2 класса...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i, j, c: integer;
begin
c := 0;
for i := 100 to 999 do
if(((strtoint(i.ToString[1])) < (strtoint(i.ToString[2])))
and ((strtoint(i.ToString[2])) < (strtoint(i.ToString[3]
then c := c + 1;
write(c);
end.