Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
armvos
05.04.2023 15:48 •
Информатика
Среди всех трёхзначных чисел (отрицательных и положительных) найти и выписать на экран те, у которых произведение крайних цифр совпадает с кубом средней цифры.
Показать ответ
Ответ:
JollyWolf
06.10.2020 02:08
Var i,c:integer;
begin
for i:=100 to 999 do
begin
c:=i div 10 mod 10;
if (i div 100)*(i mod 10)=c*c*c then writeln(-i,' ',i);
end;
end.
Результат:
-100 100
-111 111
-128 128
-200 200
-224 224
-300 300
-339 339
-400 400
-422 422
-500 500
-600 600
-700 700
-800 800
-821 821
-848 848
-900 900
-933 933
0,0
(0 оценок)
Популярные вопросы: Информатика
ArtemRussia
12.11.2021 04:42
Определите количество цветов в палитре при глубине цвета 4, 8, 16, 24, 32 бита....
meowgro
12.11.2021 04:42
Определите количество цветов в палитре при глубине цвета 4, 8, 16, 24, 32 бита....
Милка1111111111117
06.10.2021 06:42
1.Что такое объект? Что такое модель? 2. Что означает 3D моделирование?3.Что такое 3D редактор?4. Какие 3D редакторы ты знаешь?...
Dashawifi
05.09.2021 11:51
Дана программа на языке Паскаль.Программа определения весовой категории в зависимости от веса спортсмена. Если вес спортсмена меньше 61, то «лёгкая категория» иначе «средняя...
eminsultanov7
05.09.2021 11:51
Запишите на языке Паскаль...
margo7108
02.02.2022 22:40
Язык Pascal. Напишите программу, которая позволяет вводить с клавиатуры два целых числа и выводит на экран сумму чисел, разность между числами, квадрат разности между числами....
esalinder22
20.12.2022 19:11
Что-то не получается совсем...
TheLoneRider
19.08.2021 09:59
Известно, что слову КАША соответствует код 011011010. Какое наименьшее количество двоичных знаков может содержать сообщение, кодирующее слово ОСОКА?можно подробное решение...
овшаь
17.07.2021 21:45
Ведение переписки MS Outlook...
trenter
04.04.2020 10:28
Информатика, 8 класс. Написать алгоритм(блок-схему) решения задачи: Составить блок-схему нахождения значения у при заданном значении x. Нужен точный, подробный ответ с решением....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
for i:=100 to 999 do
begin
c:=i div 10 mod 10;
if (i div 100)*(i mod 10)=c*c*c then writeln(-i,' ',i);
end;
end.
Результат:
-100 100
-111 111
-128 128
-200 200
-224 224
-300 300
-339 339
-400 400
-422 422
-500 500
-600 600
-700 700
-800 800
-821 821
-848 848
-900 900
-933 933