Question

Дано натуральное число, определить количество цифр кратных 3-ем и их сумму.Срочно !!

Answer 1

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

begin
  var n:=Abs(ReadInteger('n='));
  var (k,s):=(0,0);
  while n>0 do begin
    var d:=n mod 10;
    if d mod 3=0 then (k,s):=(k+1,s+d);
    n:=n div 10
    end;
  Writeln('В числе ',k,' цифр, кратных 3. Их сумма равна ',s)  
end.

Пример
n= 6035
В числе 3 цифр, кратных 3. Их сумма равна 9