Question

Найдите все трехзначные числа, сумма цифр которых равна данному целому числу.(pascal)

Answer 1

uses crt;

var i,s,a,b,c,ch,o:integer;

begin
o:=0;
writeln(' Vvedite chislo ' );
readln(ch);
for i:=100 to 999 do
begin
a:=i div 100;
b:=(i div 10) mod 10;
c:=i mod 10;
if ((a+b+c) = ch) then
begin
inc(o);
writeln(i);
end;
end;
if o = 0 then writeln('error !');
readln;
end.

Answer 2

Чтобы найти все трехзначные числа, сумма цифр которых равна данному целому числу, мы можем использовать циклы и условные операторы в языке Pascal.

Вот пример кода на Pascal, который решает эту задачу:

program FindNumbers;

var
  num, digit1, digit2, digit3, sum: integer;

begin
  // Вводим целое число
  write('Введите целое число: ');
  readln(num);
  
  writeln('Трехзначные числа, сумма цифр которых равна ', num, ':');
  
  // Перебираем все трехзначные числа
  for digit1 := 1 to 9 do
  begin
    for digit2 := 0 to 9 do
    begin
      for digit3 := 0 to 9 do
      begin
        // Считаем сумму цифр числа
        sum := digit1 + digit2 + digit3;
        
        // Проверяем, равна ли сумма цифр данному числу
        if sum = num then
        begin
          // Выводим найденное число
          writeln(digit1, digit2, digit3);
        end;
      end;
    end;
  end;
  
  readln;
end.

При запуске программы она просит ввести целое число. Затем она перебирает все трехзначные числа и суммирует их цифры. Если сумма цифр равна введенному числу, она выводит это число.

Например, если мы введем число 5, программа выведет все трехзначные числа, сумма цифр которых равна 5: 104, 113, 122, 131, 140, 203, 212, 221, 230, 302, 311, 320, 401, 410, 500.