Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Savcik
15.06.2022 07:10 •
Информатика
Составьте программу, в которой функция выведет на экран однозначные числа, удовлетворяющие следующему условию: х*х*х-х*х=n , где n вводится с клавиатуры.
Ответ:
VolandDrein
14.07.2020 19:22
Var
n,i:integer;
begin
readln(n);
for i:=1 to 9 do
if i*i*i-i*i=n then writeln(i)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Футболист111111
21.03.2021 12:05
Свойство информации, отражающей истинное положение дел что это?...
aser101q
19.06.2021 00:39
Компьютерные сети. такое : проведите исследование и выясните, что понимают под термином компьютерные сети . только не надо копировать из вики, своими словами, так как...
maks123321456
14.01.2023 05:31
1. найти номера элементов массива, значения которых кратны 4 или 6. 2. дан одномерный массив х1, х2, …, хn . заменить каждый двухзначный элемент на вторую цифру в его...
карина0212
06.03.2020 13:10
Напишите комментарии к программе.pascal! program granat; uses crt; var a: array [1..10] of integer; i,k,x,z,vsp: integer; begin write ( исходный массив: ); for i : = 1...
nikin25
06.03.2020 13:10
9.5→ (байт) ¼ мб → ( кб) 2048 бит → ( кб) 4096 бит→ ( кб)...
nastya66669
24.03.2020 19:23
5. сообщение занимает 4 станицы по 48 строк. в каждой строке записано по 50 символов. сколько символов в алфавите, если все сообщение содержит 57600 байтов?...
katarinka377
23.04.2022 08:19
Система и подсистема механического карандаша ( информатика)...
Polinka0898
12.07.2020 05:50
Сколько весит килограмм асфальта? ...
water12
24.03.2021 00:26
Найдите неизвестные углы на рисунках 13.21 параллельные прямые обозначены стрелочками надо ...
magdigadjiev
07.10.2020 02:48
We eat in this room задайте вопросительные предложения к каждому слову...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
n,i:integer;
begin
readln(n);
for i:=1 to 9 do
if i*i*i-i*i=n then writeln(i)
end.