Дано натуральное число. Вычислить количество цифр, являющихся степенями 3. Тип данных:longint
10-11 класс
|
var
k: integer;
n: longint;
begin
read(n);
while n > 0 do
begin
if n mod 10 mod 3 = 0 then k := k + 1;
n := n div 10;
end;
writeln(k);
end.
Другие вопросы из категории
1. Физическая карта
2. Глобус
3. График зависимости расстояния от времени
4. Макет здания
5. Схема узора для вязания крючком
6. Муляж яблока
7. Манекен
8. Схема метро
сколько килограммов пищи съест Винни-Пух на двадцатом дне рождения, если на каждом следующем дне рождения Винни Пух съедает столько же пищи, что и на двух предыдущих.
Читайте также
a) найти произведение цифр числа б) верно ли, что в данном числе нет данной цифры А (цифру А вводить с клавиатуры)
2. Найти все трехзначные числа, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3 делятся на 4, а при увеличении на 4 делятся на 5.
3.Из данного натурального числа удалить все цифры А (а вводятся с клавиатуры).
Написать программы в паскале и желательно блок-схему, но можно и без нее.
Помогите пожалуйста)
0,если их несколько то номер крайней правой.
2) Дано натуральное число. Определить сумму m его последних цифр
3)Дано натуральное число. определить его максимальную цифру.
4) дано предложение. заменить в нем все вхождения под строку str1 на подстроку str2
5) последовательность чисел Фибоначчи образуется так: первый и второй член последовательности равен 1, каждый следующий равен сумме двух предыдущих(1,1,2,3,5,,8,12..) Дано натуральное число n>=3 : а) найти k-й член последовательности б)получить первые n членов последовательности в)для заданного n определить верно ли,что сумма первых n членов есть четное число
Дано натуральное число. Вычислить количество цифр, являющихся степенями тройки (1,3,9).