Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
DeniSNok
05.05.2020 20:29 •
Информатика
Pascalabc.net из чисел от 10 до 99 вывести те, сумма цифр которых равна s
Показать ответ
Ответ:
DARKxSHADOWxYT
05.10.2020 08:11
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadInteger('S=');
Range(10,99).Where(m->(m div 10)+(m mod 10)=s).Println
end.
Пример
S= 7
16 25 34 43 52 61 70
0,0
(0 оценок)
Популярные вопросы: Информатика
Пожалуйста1531
04.06.2021 20:26
Данапоследовательность неотрицательных чисел, последние из которых равно нулю; причем других равных нулю чисел в последовательности нет. найти среднее арифметическое...
юсуф37
25.06.2020 08:40
Даны числа: 10; 44; 226; 4727; 10620. Используя MS Excel, вычисли среднее арифметическое данных чисел....
alyagipsy
01.12.2022 19:37
Реши задачу. (ответ округли до целых).Книга содержит 147 страниц. На каждой странице 33 строк. В каждой строке 55 символов (включая пробелы). Найти информационный объём...
zalina59
14.12.2022 14:39
Сделайте формализацию к : группа учащихся из n человек сдавала по 4 предмета. определить и напечатать фамилии учащихся у которых средний за экзамены больше среднего...
nairchik
14.12.2022 14:39
Составить программу, печатающую значение true, если указанное значение явялется истинным, и false в противном случае: числа а, в, с отсортированы в порядке убывания....
Оля666Olya
12.05.2020 09:06
Https://gumroad.com/l/FREE-Watch-After-We-Collided-2020-Full-Movie-English-HD-Online https://gumroad.com/l/watch-after-we-collided-2020-full-movie-online-free https://gumroad.com/l/after-we-collided-2020-full-movie-online-free...
kudesnik72rusoz03b4
29.07.2021 18:50
нужно до конца дня мне уже сдать работу Запишите программу вычисляющую значение функции вычислить Y={ корень A +B если A B 0 { A+B^2 в остальных случаях при этом у пользователей...
edkot
14.01.2023 17:44
Что будет нарисовано после выполнения следующего алгоритма? использовать Чертежник алг пример нач . сместиться на вектор (2,2) . опустить перо . нц 4 раз . . сместиться...
lenichk
24.09.2021 00:39
Перед тобой поздравительная открытка напиши свое поздравление тому кого ты хочешь поздравить с праздником 8 марта...
йврлгквы
24.09.2021 00:39
Длина одного звена ломанной линии 3 см.найди длину ломанной, состоящей из 6 звеньев....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadInteger('S=');
Range(10,99).Where(m->(m div 10)+(m mod 10)=s).Println
end.
Пример
S= 7
16 25 34 43 52 61 70