Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
leya0315
21.12.2021 23:49 •
Информатика
Среди всех трёхзначных чисел (отрицательных и положительных) найти и выписать на экран те, у которых произведение крайних цифр совпадает с кубом средней цифры.
Показать ответ
Ответ:
zemdy926
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 оценок)
Популярные вопросы: Информатика
колдун3
09.08.2022 15:51
Какие виды информации являются главными для того или иного животного или растения?...
kfisatidi
15.02.2023 19:49
Определить значения признаков cy (перенос), ac (полуперенос), s (знак), z (нуль) и p (четность) в микропроцессоре кр580вм80а после выполнения команды inr b, если до...
dasha505dasha
11.09.2020 23:22
На рисунке справа схема дорог н-ского района изображена в виде графа в таблице содержатся сведения о длинах этих дорог в километрах так как таблицу и схему рисовали...
VerinaNice
19.05.2022 06:37
Выберите правильный адрес ячейки A1 B B1 C 8D номер шесть...
57775858775847575
15.08.2021 19:52
Разрешение экрана монитора 480 x 576 означает, что изображение на его экране будет состоять из точек В каждой строке....
xodocovp0a3a7
21.07.2021 11:09
Чему равна разность чисел 503 и 357 в восьмеричной системе счисления? (ответ в 8СС)...
whitreek4223
27.01.2020 19:38
На вход поступает целое число. Программа должна вывести True, если введенное значение принадлежит интервалу от 2 не включительно до 5 включительно , в противном случае...
alinavinokutov
10.07.2022 15:40
Объясните , как решить? при угадывании целого числа в диапазоне от 1 до n было получено 8 бит информации. чему равно n?...
natapova12
10.07.2022 15:40
1. в учебном заведении 800 учащихся, коды которых записаны в информационной системе с минимального количества бит. каков информационный объем сообщения о кодах 320...
daniilkrkrahmal
11.02.2020 16:48
Исполнитель повар умеет выполнять следующие команды : взять х , поджарить х в мясорубке , закататьх в y , нарезать х , положить х на y здесь вместо букв y и х можно...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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