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.