Question

дано четырёхзначное число определить а)равна ли сумма двух его первых цифр сумме двух последних его цифр бкратна ли трём сумма его цифр в)кратно ли четырём произведение его цифр

Answer 1

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var d:array[1..4] of integer;
  for var i:=1 to 4 do begin
    d[5-i]:=n mod 10;
    n:=n div 10
    end;
  if d[1]+d[2]=d[3]+d[4] then
    Writeln('Сумма двух первых цифр равна сумме двух последних');
  if (d[1]+d[2]+d[3]+d[4]) mod 3 = 0 then
    Writeln('сумма цифр кратна трем');
  if (d[1]*d[2]*d[3]*d[4]) mod 4 = 0 then
    Writeln('произведение цифр кратно четырем');
end.

Answer 2

Чтобы решить данную задачу, давайте предположим, что четырёхзначное число имеет следующий вид: ABCD, где A, B, C и D - цифры числа (от 0 до 9).

а) Проверка, равна ли сумма двух первых цифр числа сумме двух последних цифр:

Для этого нужно вычислить сумму двух первых цифр (A + B) и сумму двух последних цифр (C + D) и сравнить их:

Если (A + B) равно (C + D), то условие а) выполняется.

б) Проверка, кратна ли трём сумма всех цифр числа:

Для этого нужно сложить все цифры числа (A + B + C + D) и проверить, делится ли их сумма на 3:

Если (A + B + C + D) делится на 3 без остатка, то условие б) выполняется.

в) Проверка, кратно ли четырём произведение всех цифр числа:

Для этого нужно умножить все цифры числа (A * B * C * D) и проверить, делится ли их произведение на 4:

Если (A * B * C * D) делится на 4 без остатка, то условие в) выполняется.

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