Question

Решите программу Pascal ABC:Дано натуральное число.Напишите программу, которая проверяет, является ли оно трёхзначным и кратна ли 7 сумма его цифр.

Answer 1

Вот решение: -----------

Answer 2

Для решения этой задачи вам потребуется ввести натуральное число, проверить его на трёхзначность, а затем проверить, кратна ли сумма его цифр числу 7. Вот программа на Pascal ABC, которая выполняет указанные действия:

pascalCopy code
program ThreeDigitAndMultipleOf7;

var
  num, digitSum, tempNum: integer;

begin
  writeln('Введите натуральное число:');
  readln(num);

  // Проверка на трёхзначность
  if (num >= 100) and (num <= 999) then
  begin
    // Найдем сумму цифр числа
    digitSum := 0;
    tempNum := num;
    while tempNum > 0 do
    begin
      digitSum := digitSum + tempNum mod 10;
      tempNum := tempNum div 10;
    end;

    // Проверка на кратность суммы цифр числа 7
    if digitSum mod 7 = 0 then
      writeln('Число ', num, ' является трёхзначным и кратно сумме своих цифр.')
    else
      writeln('Число ', num, ' является трёхзначным, но не кратно сумме своих цифр, либо сумма цифр меньше 7.');
  end
  else
    writeln('Число ', num, ' не является трёхзначным.');
end.

Программа позволяет ввести число с клавиатуры, а затем проверяет, является ли оно трёхзначным и кратным сумме своих цифр. Если число удовлетворяет условиям, то выводится соответствующее сообщение, иначе выводится сообщение об ошибке.