Составьте программу вычисления суммы всех четырехзначных натуральных чисел

@Tormentor · Регистрация: 05.12.2014

Author24 — интернет-сервис помощи студентам

Уважаемые программисты! Очень нужна ваша помощь по Pascal ABC. Задание выглядит так:
Составьте программу вычисления суммы всех четырехзначных натуральных чисел, в десятичной записи которых нет двух одинаковых цифр.
Помогите, пожалуйста.

@Samhain · 05.12.2014, 16:10

Tormentor, Сумма всех четырехзначных чисел, в записи которых нет одинаковых цифр

@vint-81 · 05.12.2014, 16:47

как вариант

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var x1,x2,x3,x4:integer;
    s:longint;
begin
 s:=0;
 for x1:=1 to 9 do
  for x2:=0 to 9 do
   for x3:=0 to 9 do
    for x4:=0 to 9 do
     if (x1<>x2)and(x1<>x3)and(x1<>x4)and(x2<>x3)and(x2<>x4)and(x3<>x4)
      then s:=s+(x1*1000+x2*100+x3*10+x4);
 writeln(s)
end.

Новые блоги и статьи Все статьи Все блоги /
Вопросы на собеседованиях по микросервисам ArchitectMsa 27.03.2025 Работодатели ищут не просто разработчиков, знающих базовые концепции, а специалистов, разбирающихся в тонкостях масштабирования, отказоустойчивости и производительности. Сейчас на первый план выходят. . .	Взаимодействие Python с REST API py-thonny 27.03.2025 REST API - это архитектурный стиль взаимодействия компонентов распределённого приложения в сети. Python располагает функциональным набором инструментов для работы с REST API и основная библиотека для. . .	sshd restrictions, ssh access limitations jigi33 26.03.2025 sshd restrictions \| ssh access limitations рестрикции доступа на сервер sshd статья: https:/ / www. golinuxcloud. com/ restrict-allow-ssh-certain-users-groups-rhel	Компиляция C++ с Clang API NullReferenced 24.03.2025 Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .	Многопоточное программирование в C#: Класс Thread UnmanagedCoder 24.03.2025 Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .
SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .	Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .

@Tormentor 1 / 1 / 0 Регистрация: 05.12.2014 Сообщений: 50

	Составьте программу вычисления суммы всех четырехзначных натуральных чисел 05.12.2014, 16:02. Показов 2020. Ответов 2 Метки нет (Все метки) Уважаемые программисты! Очень нужна ваша помощь по Pascal ABC. Задание выглядит так: Составьте программу вычисления суммы всех четырехзначных натуральных чисел, в десятичной записи которых нет двух одинаковых цифр. Помогите, пожалуйста. 0

@Samhain 696 / 570 / 414 Регистрация: 31.03.2013 Сообщений: 1,029
	05.12.2014, 16:10
	Tormentor, Сумма всех четырехзначных чисел, в записи которых нет одинаковых цифр 0

Опции темы

Составьте программу вычисления суммы всех четырехзначных натуральных чисел

Решение