Question

Найти все трехзначные числа у которых сумма цифр равна А , а само число делится на В. Паскаль. 40 баллов.

Answer 1

program test;

var i,a,b:integer;

BEGIN

writeln('Enter a:');

readln(a);

writeln('Enter b:');

readln(b);

for i:=100 to 999 do

   begin

   if ((((i div 10) mod 10)+(i div 100)+(i mod 10) )= a) and (i mod b=0)  then writeln(i);

   end;

END.

Answer 2

Для решения этой задачи, напишем программу на языке Паскаль, которая будет искать все трехзначные числа, у которых сумма цифр равна заданному числу A и которые делятся на заданное число B.

pascalCopy code
program FindNumbers;

var
  A, B, num, digitSum: integer;

begin
  // Вводим значения A и B
  writeln('Введите значение A (сумма цифр): ');
  readln(A);
  
  writeln('Введите значение B (делитель): ');
  readln(B);
  
  writeln('Трехзначные числа, сумма цифр которых равна ', A, ' и которые делятся на ', B, ':');
  
  for num := 100 to 999 do
  begin
    // Вычисляем сумму цифр числа
    digitSum := (num div 100) + ((num div 10) mod 10) + (num mod 10);
    
    // Проверяем условия
    if (digitSum = A) and (num mod B = 0) then
      writeln(num);
  end;
end.

Этот код проверяет все трехзначные числа от 100 до 999 включительно. Для каждого числа вычисляется сумма его цифр. Если сумма равна заданному числу A и число делится на B без остатка, то оно выводится на экран.