Помогите пожалуйста написать программку в PascalABC.NET : Найти все четырехзначные числа,
Помогите пожалуйста написать программку в PascalABC.NET : Отыскать все четырехзначные числа, сумма цифр1-го и 3-го разряда которых одинакова 6,а разность 2-го и 4-го одинакова -5
Задать свой вопрос1 ответ
Борис Дзагоев
// PascalABC.NET 3.2, сборка 1407 от 18.03.2017
// Внимание! Если программка не работает, обновите версию!
begin
for var a:=1 to 6 do
for var c:=0 to 5 do
for var b:=0 to 4 do
for var d:=5 to 9 do
if (a+c=6) and (b-d=-5) then Write(a,b,c,d,' ');
Writeln
end.
Итог
1055 1156 1257 1358 1459 2045 2146 2247 2348 2449 3035 3136 3237 3338 3439 4025 4126 4227 4328 4429 5015 5116 5217 5318 5419 6005 6106 6207 6308 6409
// Внимание! Если программка не работает, обновите версию!
begin
for var a:=1 to 6 do
for var c:=0 to 5 do
for var b:=0 to 4 do
for var d:=5 to 9 do
if (a+c=6) and (b-d=-5) then Write(a,b,c,d,' ');
Writeln
end.
Итог
1055 1156 1257 1358 1459 2045 2146 2247 2348 2449 3035 3136 3237 3338 3439 4025 4126 4227 4328 4429 5015 5116 5217 5318 5419 6005 6106 6207 6308 6409
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Облако тегов