В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
машад14
машад14
17.11.2022 18:51 •  Информатика

Среди всех трёхзначных чисел (отрицательных и положительных) найти и выписать на экран те, у которых произведение крайних цифр совпадает с кубом средней цифры.

Показать ответ
Ответ:
starlitt
starlitt
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 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота