Срочно нужна ваша помощь !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! решение на языке паскаль На обработку поступает натуральное число, не превышающее 10^9. Нужно написать программу, которая выводит на экран сумму нечетных цифр числа, которые делятся на 3. Если в числе нет таких цифр, требуется на экран вывести «NO».

Вопрос школьника по предмету Информатика

Срочно нужна ваша помощь !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
решение на языке паскаль

На обработку поступает натуральное число, не превышающее 10^9. Нужно написать программу, которая выводит на экран сумму нечетных цифр числа, которые делятся на 3. Если в числе нет таких цифр, требуется на экран вывести «NO».

Ответ учителя по предмету Информатика

Ответ:

program z1;

var a,s: longint;

begin

write (‘Введите число: ‘);

readln(a);

s:=0;

repeat

if (a mod 10 mod 2 = 1) and (a mod 10 mod 3 = 0) then s:=s+a mod 10;

a:=a div 10

until a=0;

if s = 0 then write(‘NO’)

else writeln(s)

end.