Question

Дано трёхзначное число. Верно ли, что сумма цифр этого числа будет кратна 3? программа на пскаль

Answer 1

// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
  Writeln(ReadlnString('n=').ToIntegers.Sum mod 3=0)
end.

Выводится True, если верно и False, если нет
Пример
n= 483
True

Замечание
Число может быть не обязательно трехзначным - количество цифр в нем не ограничено!

Answer 2

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

typescriptCopy code
program SumIsMultipleOfThree;

var
  number, digitSum: integer;

begin
  writeln('Введите трехзначное число:');
  readln(number);
  
  // Разделяем число на цифры и складываем их
  digitSum := (number div 100) + ((number div 10) mod 10) + (number mod 10);
  
  // Проверяем, кратна ли сумма цифр числа 3
  if (digitSum mod 3) = 0 then
    writeln('Сумма цифр числа ', number, ' кратна 3')
  else
    writeln('Сумма цифр числа ', number, ' не кратна 3');
end.

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