Question

Дано x - целое, шестиразрядное число. Посчитать количество цифр в этом числе больше 5. Делать в паскале

Answer 1

Ответ:Var a : Integer;

Begin

Readln(a);

If a mod 4 = 0 then Writeln('Сумма цифр: ',a div 1000+a mod 1000 div 100+a mod 100 div 10+a mod 10)

else Writeln('Произведение цифр: ',(a div 1000)*(a mod 1000 div 100)*(a mod 100 div 10)*(a mod 10));

end.

Объяснение: