Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
timurbir1
14.11.2020 23:18 •
Информатика
Написать на паскале: из чисел от 10 до 99 вывести те, сумма цифр которых равна s (s> 0; s< 18) cрочно!
Показать ответ
Ответ:
nas81
03.10.2020 18:37
Var i,s:integer;
begin
write('s = '); readln(s);
for i:=10 to 99 do
if (i div 10)+(i mod 10)=s then write(i,' ');
writeln;
end.
Пример:
s = 10
19 28 37 46 55 64 73 82 91
0,0
(0 оценок)
Ответ:
youyousiis
03.10.2020 18:37
//Pascal ABC.NET 3.1 сборка 1219
begin
var a:=ReadInteger();
writeln(range(10,99).where(x -> (x mod 10)+(x div 10)=a));
end.
Пример ввода:
13
Пример вывода:
[49,58,67,76,85,94]
0,0
(0 оценок)
Популярные вопросы: Информатика
prostopohelnaxyi
21.02.2020 13:57
Три отрицательных элемента массива b1, b2, b25, расположенных правее максимального помножить на номер максимального элемента....
vikyyyyysya142
13.03.2021 21:50
Из каких источников могут быть получены растровые изображение...
TinoShtrydenberg
08.08.2020 00:02
Не работает программа. исправьте код.: реверс массива неизвестного размера из файла с стека код: var t1,t2: text; k,n: integer; procedure chisla; var a: integer; begin read(t1,a);...
slaider1123
18.11.2022 02:15
Составьте программу вычисления суммы мест на которых в слове стоят символы + и -...
Ivanna1111111
09.04.2022 00:31
КАК НАЗЫВАЕТСЯ ЭТОТ ЗНАК...
Rkkshv
06.11.2021 14:46
При какоймцифре датчик информирует о состаяниибез цвета?4букв 4класс...
boldarev2001
23.08.2022 21:23
Клетки грибов делятся на четыре части каждые пять минут. опредилите, какое количество клеток будет через n минут. напишите цикл который будет определять количество клеток...
yangbomj228
03.06.2021 17:35
Банку требуется сообщить вкладчику, что его процес дохода при вкладе 200000 тенге составит 13,5 % в год, а при сумме 350000 тенге и выше составит 14,2 % в год....
никита3467т
06.04.2021 15:36
Сор по информатике 6 класс как разрабатываются компьютерные игры...
Иван7962
19.11.2022 05:46
Как раскрыть скобки в предложении. london twice.(be)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('s = '); readln(s);
for i:=10 to 99 do
if (i div 10)+(i mod 10)=s then write(i,' ');
writeln;
end.
Пример:
s = 10
19 28 37 46 55 64 73 82 91
begin
var a:=ReadInteger();
writeln(range(10,99).where(x -> (x mod 10)+(x div 10)=a));
end.
Пример ввода:
13
Пример вывода:
[49,58,67,76,85,94]