Помогите, пожалуйста написать программу на паскаль Дано натуральное число. Вычислить количество цифр, являющихся степенями тройки (1,3,9).

Ответы:

Юлия Павлюченко

30-06-2015 18:39

var n, digit, ans : integer;begin read(n); ans := 0; while (n > 0) do begin digit := n mod 10; if ((digit = 1) or (digit = 3) or (digit = 9)) then ans := ans + 1; n := n div 10; end; writeln(ans);end.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя Тарас Ковальчук

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Помогите, пожалуйста написать программу на паскаль Дано натуральное число. Вычислить количество цифр, являющихся степенями тройки (1,3,9).» от пользователя Тарас Ковальчук в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!