Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Nesnayka228
26.05.2022 12:27 •
Информатика
Написать на паскале: из чисел от 10 до 99 вывести те, сумма цифр которых равна s (s> 0; s< 18) cрочно!
Показать ответ
Ответ:
Танякваша17
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 оценок)
Ответ:
verastepanova5
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 оценок)
Популярные вопросы: Информатика
arsenmalhasan20
29.05.2021 23:34
Задача. Реализовать алгоритм на Pascal. Девочка, заходившая на кухню, каждый раз наблюдала одну и ту же ситуацию: тараканы разбегались по углам, причем не в случайном порядке,...
WepaDarkSouls
08.01.2020 08:42
Установи соответствие: 1 K$1 А Абсолютная ссылка 2 $B56 Б Относительная ссылка 3 G456 В Смешанная ссылка 1 2 3 Задание 2....
Лиза22092004
15.05.2022 20:42
⦁ На языке PYTHON написать программу, которая из строк а=′клав′, b=′ура′ составит строку «клавиатура»...
sergeyshevchukp06kj3
04.07.2020 10:55
Создайте поле размером 7×7. составьте программу, в результате которой робот закрасить диагональные клетки поля. исходное положение робота и результат выполнения программы показаны...
shipashka
07.04.2020 22:45
Напишите программу в питоне такую, чтобы сначала запрашивалось имя героя или hero_name str, потом его здоровье или hp (health points) int и урон или damage int, который наносит...
Ричард256
28.10.2022 06:59
Наверно самый тупой вопрос но как удалить презентацию в microsoft powerpoint...
Grechk
06.06.2021 12:15
не понимаю как делать номер 88...
AnnaNazar07
19.02.2023 12:28
Назовите сказки где есть волшебные предметы....
tisha199567
14.12.2022 23:00
Противоположные слова дружба любить строить...
DXDynamic31
30.01.2022 12:44
Вшахмотном турнире участвовали 6 человек.каждый с каждым сыграл по 1 партии.скоко всего партий они сыграли...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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]