Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Социальные группы Поиск Сообщения за день Заказать работу  
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 15.10.2010
Сообщений: 9

Выяснить, какие положительные целые числа меньше 20 удовлетворяют равенству

15.10.2010, 23:04. Показов 1366. Ответов 1
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Какие положительные целые числа меньше 20 удовлетворяют следующему равенству: I3+J3+K3=L3 помогите плиз!!!
0
Лучшие ответы (1)
Сообщение: #1030947
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
 15.10.2010, 23:04
Ответы с готовыми решениями:

Какие целые числа удовлетворяют неравенству
Помогите с заданием по алгебре пожалуйста. Правила форума :rtfm: 4.3. Создавайте темы с осмысленными и понятными названиями - это...

Последовательно вводятся целые положительные числа. Для каждого числа выяснить, является ли оно факториалом
Последовательно вводятся целые положительные числа. Для каждого числа выяснить, является ли оно факториалом какого-либо числа. Если да, то...

Выяснить, какие числа встречаются чаще – положительные или отрицательные
20 случ. чисел от -10 до 10 Найти максимум Выяснить, какие числа встречаются чаще – положительные или отрицательные, и сообщить об этом....

1
 Аватар для Sergiuz
161 / 159 / 39
Регистрация: 10.10.2010
Сообщений: 461
15.10.2010, 23:16
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Delphi
1
2
3
4
5
6
7
8

var i,j,k,l: Integer;
begin
for l := 0 to 20 do
  for k := 0 to  20 do
    for j := 0 to 20 do
      for i := 0 to 20 do if l=k+j+i then mmo1.Lines.Add(IntToStr(i)+'+'+Inttostr(j)+'+'+inttostr(k)+'='+inttostr(l));
 
end;
2
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
 15.10.2010, 23:16
Помогаю со студенческими работами здесь

Выяснить, какие числа встречаются в файле чаще - положительные или отрицательные
Программа открывает текстовый файл, который содержит некоторое количество целых чисел. Выяснить, какие числа встречаются чаще -...

Даны целые положительные числа A и B (A < B). Вывести все целые числа от A до B включительно; при этом каждое
Даны целые положительные числа A и B (A &lt; B). Вывести все целые числа от A до B включительно; при этом каждое число должно выводиться ...

Выяснить, какие множества точек z комплексной плоскости удовлетворяют указанным неравенствам
Выяснить, какие множества точек z комплексной плоскости удовлетворяют указанным неравенствам. 1&lt;\left|z+2+i \right|&lt;3

Выяснить, какие множества точек комплексной плоскости удовлетворяют указанным неравенствам
Верно ли это

Даны целые положительные числа A и B (A < B). Вывести все целые числа от A до B включительно
Даны целые положительные числа A и B (A &lt; B). Вывести все целые числа от A до B включительно; при этом каждое число должно выводиться...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

Новые блоги и статьи
Валидация и контроль данных табличной части документа перед записью
Maks 22.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .
Отчёт о затраченных материалах за определенный период с макетом печатной формы
Maks 21.04.2026
Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .
Отчёт о спецтехнике находящейся в ремонте
Maks 20.04.2026
Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .
Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)"
Hrethgir 19.04.2026
Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии
Maks 19.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов
alhaos 17.04.2026
Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru