Цикл For не могу решить - Pascal

Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.60/5:

cxz1986

	Цикл For не могу решить 05.04.2010, 10:17. Показов 1071. Ответов 1 Метки нет (Все метки) Вывести на экран все трёхзначные числа, сумма цифр которых будет равна А (А вводится с клавиатуры)

Лучшие ответы (1)

Сообщение: #641550

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

05.04.2010, 10:17

Ответы с готовыми решениями:

Цикл For не могу решить
Помогите написать программу. Вводить с клавиатуры не четные числа от одного до N, как только будет введен ноль или четная цифра завершить...

Цикл: Не могу создать цикл для switch
не могу создать цикл для switch

как Решить цикл в Delphi
Нужно решить уравнение с помощью цикла. Очень нужно, помогите пожалуйста

Demetri

28 / 28 / 5

Регистрация: 18.01.2010

Сообщений: 73

05.04.2010, 10:39

Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
var
a,r1,r2,r3: integer;
 
begin
write('Введите число A:');
readln(A);
for r1:=1 to 9 do
for r2:=0 to 9 do
for r3:=0 to 9 do
if r1+r2+r3=a then writeln(r1,r2,r3);
end;

Здесь r1,r2,r3 - это соответственно цифры 1,2 и 3 разрядов.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

05.04.2010, 10:39

Помогаю со студенческими работами здесь

Решить в делфи вложенный цикл
Найти все натуральные числа a,b,c из интервала от 1 до 20 для которых выполняется a+b=c(в квадрате)

Цикл с параметром: решить функцию
Делаю лабораторную, тема "Цикл с параметром". Необходимо решить функцию y = f(x) с х нач и х кон. Private Sub Button3_Click(ByVal sender...

Решить уравнение через цикл
помогите пожалуйста написать программу которая решает такую задачу вводим диапозон от1 до n такое уравнение y=cos(1+cos(2+cos(...

Сделайте срочно решить программу на цикл
Даны действительное число X и натурпальное N. Вычислить: M=sin X + sin X(2) + ... + sin X(n), где (n) - степень числа X Добавлено...

Решить квадратное уравнение через цикл
Решить квадратное уравнение, с помощью цикла. y = 5x^2 - 2x + 1 Промежутки - Шаг = 2

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .

Наверх