Найти разность произведения первых двух цифр числа

@@lёHa · Регистрация: 26.03.2010

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

Написать программу с использованием подпрограмм. В подпрограммах не должно присутствовать ввода исходных данных (например, с помощью Readln) и вывода результатов на экран. Ввод исходных данных и ввод результатов должен производить в "теле" основной программы!
Написать программу, которая находит из всех четырехзначных чисел, такие числа, разность произведения первых двух цифр и произведения последних равна сумме всех цифр. Четырехзначное число образуется четырьмя цифрами , тогда искомые числа, это те, для которых выполняется следующее равенство: a*b-c*d=a+b+c+d .

@Inadequate · 17.05.2010, 11:37

Вот с функцией

Pascal

function F(n: integer): boolean;
begin
  F := (n div 1000) * (n div 100 mod 10) - (n div 10 mod 10) * (n mod 10) = (n div 1000) + (n div 100 mod 10) + (n div 10 mod 10) + (n mod 10);
end;
 
var
  i: integer;
begin
  for i := 1000 to 9999 do
  begin
    if F(i) then
      Write(i, ' ');
    if i mod 1000 = 0 then
      WriteLn;
  end;
  ReadLn;
end.

А можно и так

Pascal

var
  a,b,c,d: byte;
begin
  for a := 1 to 9 do
    for b := 0 to 9 do
      for c := 0 to 9 do
        for d := 0 to 9 do
          if a * b - c * d = a + b + c + d then
            Write(a, b, c, d, ' ');
  ReadLn;
end.

Новые блоги и статьи
Интеграция Arduino и ChatGPT: Практическое руководство InfoMaster 16.01.2025 В современную эпоху технологических инноваций интеграция искусственного интеллекта с микроконтроллерами открывает принципиально новые возможности для создания умных устройств и автоматизированных. . .	Как создать робота, управляемого ChatGPT InfoMaster 16.01.2025 Концепция проекта В современную эпоху искусственный интеллект и робототехника становятся все более доступными для энтузиастов и разработчиков. Создание роботизированной руки, управляемой ChatGPT,. . .	Как создать ChatGPT бота в Telegram на Python InfoMaster 16.01.2025 В современном мире технологии искусственного интеллекта становятся все более доступными для разработчиков, открывая новые возможности для создания умных и интерактивных приложений. Одним из самых. . .	Машинное обучение с помощью Python InfoMaster 16.01.2025 Машинное обучение стало неотъемлемой частью современных технологий, позволяя компьютерам учиться на основе данных и принимать решения без явного программирования. В сочетании с языком. . .	Использование связки C# и PHP в корпоративной разработке и микросервисной архитектуре InfoMaster 16.01.2025 Введение в интеграцию C# и PHP В современной корпоративной разработке все чаще возникает потребность в создании гибких и масштабируемых решений, способных эффективно решать широкий спектр. . .	Как использовать Kerio дома для управления сетью и пользователями InfoMaster 16.01.2025 Использование технологий для улучшения повседневной жизни стало неотъемлемой частью современного быта. Одной из таких технологий является Kerio — мощный инструмент для управления сетью и. . .
Есть ли будущее у DVD и Blu-ray? InfoMaster 16.01.2025 В эпоху стремительного развития цифровых технологий и повсеместного распространения потоковых сервисов вопрос о будущем физических носителей информации становится все более актуальным. Особенно остро. . .	Как проводить научные вычисления на Python InfoMaster 15.01.2025 Python стал одним из наиболее востребованных языков программирования в области научных вычислений благодаря своей простоте, гибкости и обширной экосистеме специализированных библиотек. Научные. . .	Создание игры типа Minecraft на PyGame/Python: пошаговое руководство InfoMaster 15.01.2025 В данном руководстве мы рассмотрим процесс создания игры в стиле Minecraft с использованием библиотеки PyGame на языке программирования Python. Этот проект идеально подходит как для начинающих. . .	Как создать свою первую игру в стиле Doom на Unreal Engine InfoMaster 15.01.2025 Разработка шутера от первого лица в стиле классического Doom представляет собой увлекательное путешествие в мир игрового программирования, где сочетаются творческий подход и технические навыки. . . .	Параллельное программирование: основные технологии и принципы InfoMaster 15.01.2025 Введение в параллельное программирование Параллельное программирование представляет собой фундаментальный подход к разработке программного обеспечения, который позволяет одновременно выполнять. . .	Как написать микросервис на C# с Kafka, MediatR, Redis и GitLab CI/CD InfoMaster 15.01.2025 В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .

@@lёHa 0 / 0 / 0 Регистрация: 26.03.2010 Сообщений: 34
		1
	Найти разность произведения первых двух цифр числа 17.05.2010, 11:05. Показов 1320. Ответов 1 Метки нет (Все метки) Написать программу с использованием подпрограмм. В подпрограммах не должно присутствовать ввода исходных данных (например, с помощью Readln) и вывода результатов на экран. Ввод исходных данных и ввод результатов должен производить в "теле" основной программы! Написать программу, которая находит из всех четырехзначных чисел, такие числа, разность произведения первых двух цифр и произведения последних равна сумме всех цифр. Четырехзначное число образуется четырьмя цифрами , тогда искомые числа, это те, для которых выполняется следующее равенство: ab-cd=a+b+c+d . 0

	17.05.2010, 11:37

Опции темы

Найти разность произведения первых двух цифр числа

Решение