Question

Батырхан любит числа, которые без остатка делятся на число 3. К сожалению, для очень больших чисел он не может проверить должен ли он любить его или нет. Помогите ему написав программу, которая поможет ему

Answer 1

// PascalABC.NET 3.2, сборка 1359 от 11.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var b:=BigInteger.Parse(ReadlnString('Введите натуральное число:'));
  Writeln(b mod 3=0?'Любить!':'Не любить')
end.

Примеры
Введите натуральное число: 437698996754633421436470300745368495356906343236523233
Не любить

Введите натуральное число: 12345678901234567890123456789012345678901234567890
Любить!