Question

Напишите программу поиска всех трёхзначных чисел, сумма цифр которых и само число кратны 7 Paskal

Answer 1

Var
i, j, k: longint;
begin
for i := 1 to 9 do
    for j := 0 to 9 do
        for k := 0 to 9 do
             if ((i + j + k) mod 7 = 0) and ((100*i+10*j+k) mod 7 = 0) then
                  writeln(i, j, k);
end.

Answer 2

Программа на языке Pascal для поиска всех трехзначных чисел, сумма цифр которых и само число кратны 7:

program FindNumbers;

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

begin
  // Перебираем все трехзначные числа
  for number := 100 to 999 do
  begin
    // Разбиваем число на цифры
    digit1 := number div 100; // Первая цифра
    digit2 := (number div 10) mod 10; // Вторая цифра
    digit3 := number mod 10; // Третья цифра

// Вычисляем сумму цифр
    sum := digit1 + digit2 + digit3;

// Проверяем, является ли сумма и само число кратными 7
    if (sum mod 7 = 0) and (number mod 7 = 0) then
      writeln(number); // Выводим число
  end;
end.

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