Question

Нужно для программы Pascal! Из чисел от 10 до 99 вывести те, сумма цифр которых равна n и само число делится на m.

Answer 1

Var n,m,s,q,w,e:Integer;
begin
Read(n,m);
for s:= 10 to 99 do
begin
q:= s div 100;
w:= s div 10 mod 10;
e:= s mod 10;
if (q+w+e=n) and(s mod m = 0) then
WriteLn(s);
end;
end.

Answer 2

Для решения этой задачи на Pascal, вы можете использовать два вложенных цикла для перебора всех чисел от 10 до 99. Затем проверьте сумму цифр каждого числа и его деление на m. Если условия выполняются, выведите число. Вот пример кода на Pascal:

pascalCopy code
program NumbersWithSumAndDivisibility;

var
  n, m, num, digit1, digit2, sum: integer;

begin
  // Введите значения n и m
  writeln('Введите значение n:');
  readln(n);
  writeln('Введите значение m:');
  readln(m);

  writeln('Числа от 10 до 99, у которых сумма цифр равна ', n, ' и которые делятся на ', m, ':');

  for num := 10 to 99 do
  begin
    // Разбиваем число на цифры
    digit1 := num div 10;
    digit2 := num mod 10;

    // Считаем сумму цифр
    sum := digit1 + digit2;

    // Проверяем условия
    if (sum = n) and (num mod m = 0) then
      writeln(num);
  end;
end.

Помните, что это только одно из множества возможных решений. Вы можете оптимизировать код или использовать другие алгоритмы для решения данной задачи.