сервис вопросов и ответовПомогите, пожалуйста написать программу на паскаль
10-11 класс|
|
Дано натуральное число. Вычислить количество цифр, являющихся степенями тройки (1,3,9).
Stassia
11 дек. 2013 г., 9:14:03 (10 лет назад)
анечкагришакова
11 дек. 2013 г., 11:44:56 (10 лет назад)
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.Скорость= 30000 бит/с; размер изображения=600x800; изображение состоит из 9 цветов. нужно найти время. и второй вопрос:Какая должна быть скорость для
передачи такого же объёма файла,только чёрно-белого изображения. решите пожалуйста и с объяснением:) Решается 4-ка!!!
Цепочка символов создаётся по следующему правилу. Первая строка содержит одну латинскую букву «А». Каждая из последующих цепочек создается такими
действиями: в очередную строку сначала записывается буква, чей порядковый номер в алфавите соответствует номеру строки, к ней справа дважды подряд приписывается предыдущая строка. Вот первые 4 строки, созданные по этому правилу:
(1) A
(2) BAA
(3) CBAABAA
(4) DCBAABAACBAABAA
Латинский алфавит (для справки): ABCDEFGHIJKLMNOPQRSTUVWXYZ
Запишите четыре символа подряд, стоящие в седьмой строке со 120-го по 123-е место (считая слева направо).
Читайте также
написать программу на Assembler
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
программа на C++ в визуальном режиме (есть несколько вариантов кода программы)
доброй ночи, уважаемые программисты и успевающие в учебе студенты. помогите, пожалуйста, написать программу на C++ (в визуальной вкладке).
ВОТ ЗАДАНИЕ:
дано три переменные вещественного типа. если их значения упорядочены по возрастанию или убыванию, то удвоить их; иначе заменить значение каждой переменной на противоположное. вывести значения переменных.
я прикрепила несколько тестовых файлов (блокнот) в которых есть несколько вариантов решение этого задание (то есть коды программ), а вы скажите какой из них лучше всего подходит, а также скажите какие компоненты нужно кинуть на форму-дизайн (то есть какие кнопки, и что на них писать). в этих 3 файлов есть написанный код программы, нужно написать: на какие кнопки что писать и какой вариант решение больше подходит.
заранее огромное спасибо всем за помощь!!!
Помогите пожалуйста написать программу на паскале по заданию "Найти все двузначные числа, которые при умножении на 2 заканчиваются на 8, а
при умножении на 3 - на 4."
Помогите пожалуйста написать программу на паскале: дан массив целых чисел. найти количество элементов,кратных 5, расположенных между максимальным и
минимальным элементами массива (включая их)
Вы находитесь на странице вопроса "Помогите, пожалуйста написать программу на паскаль", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.