** вход программы поступает натуральное число. Требуется определить сумму цифр в...

Question

На вход программы поступает натуральное число. Требуется определить сумму цифр в десятичной записи этого числа, которые не кратны 3 (считается, что 0 кратно любому числу). Напишите программу на языке PASCAL​

Answer 1

===Pascal ABC.Net===

program brainly;

var

 number, summ :integer;

begin

 Write('Введите число: ');

 ReadLn(number);

 while number <> 0 do

 begin

 if (number mod 10 <> 0) and

    (number mod 10 <> 3) and

    (number mod 10 <> 6) and

    (number mod 10 <> 9) then summ += number mod 10;

 number := number div 10;

 end;

 Write('Сумма цифр числа, не кратных трём: ', summ);

end.