Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Koko2010007
14.05.2020 01:35 •
Информатика
Программирование, 10 класс pascal abc необходимо написать код к (как можно проще): указать в диапазоне от a до b числа, сумма цифр которого совпадает с их произведением. или сообщить об отсутствии таких чисел.
Показать ответ
Ответ:
солнышко279
07.07.2020 13:09
Const a=1; b=5;
Var i:integer;
Begin
for i:=a to b do
if i*i = i+i then
writeln(i);
readln;
end. Достаточно простой код
0,0
(0 оценок)
Популярные вопросы: Информатика
vikapuzya200
11.02.2022 20:02
составить программы на языке Паскаль Дано вещественное число x. Для функции, представленной графиком, вычислить y = f (x). 2. Найти максимальное (минимальное значение). 3. Выяснить,...
artemmishin7777777
21.02.2023 10:02
Отметь верные утверждения об условном операторе Правильных ответов может быть несколько. 1.Условный оператор используется для выбора исполняемой команды в зависимости от значения...
MrLED
09.11.2022 08:49
Составьте правила арифметических операций для 3 и 8 с.с. ...
Meylisa3
11.10.2022 21:58
от деления выполняет знак %.Чтобы избавиться от Младшего уже учтенного число следует разделить нацело на 10 Деление нацело обозначается двумя слэшами //...
Amarcy
14.05.2022 07:22
принципы построения компьютерных сетей?(кратко )...
sonif1206
05.01.2023 13:13
Разгадайте кроссворд «Отношения и их множеств».По горизонтали, 4. Графическое (наглядное) изображение связей между объектами (два слова). 5. Множество, содержащее в себе все элементы...
oleg1960
16.04.2022 05:05
Оцените сколько примерно будет занимать памяти рисунок размером 40х30 пикселей, закодированный в режиме High Color. Что в данной оценке неучитывается?...
Diko056
29.05.2023 03:10
а:=-2 b:=2; если a =b то X:=(250 div 10 mod 2) + (350 div 10 mod 10) иначе X:=(250 div 10 mod 10) + (47 mod 6 div 5);...
berezovskatanap09xfx
19.04.2021 00:22
за першу годину туристи пройшли 4км а за кожну наступну годину проходили на 0,5км меньше який шлях воны за 3 часа ...
kosikoffpasha
06.01.2023 10:03
В гардеробной театра девушка сообщила, что куртка, принадлежащая ей, висит в 32 ряду, на 64 вешалке. Какое количество информации передала девушка?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var i:integer;
Begin
for i:=a to b do
if i*i = i+i then
writeln(i);
readln;
end. Достаточно простой код